perl -e '$t.=sprintf("%02d ", $_), push(@r, " .") for 1..39; print "$t\n"; while(<>){ @i=split; $r[$_-1]=" X" for @i; print "@r\n"; $r[$_-1]=" ." for @i}' lyh