$|=@x="\r";map{for($x=45;$x;){sub x{select$u,$u,$u,pop}$qq=$"x--$x.$_
;print@x,$qq.$"x(70-length$qq.join"",@x[1..4]);x.06}x+1;push@x,$_.$"}
qw/Just another Perl hacker/;print$/