print "P2 256 256 255\n" ;
for $y ( 0 .. 255 ) {
    for $x ( 0 .. 255 ) {
        print "$x\n" ;
    }
}