#!/usr/athena/bin/perl

while(<>){
    ($x, $y, $z) = split;
    $x /=5;
    $y /=5;
    $z /=5;
    print "$x $y $z black\n";
}