#!perl -p $_^=v0 x(60-($x=75442>>-$.*3&7)/2).' 'x$x