use Term::ReadKey;@_=GetTerminalSize();$_[2]=$_[0]/40;for(
qw(3e7e227e3e 6303630363 7f3e3e7e3f 6360630363 223f227e22)
){local$_=unpack("b*",pack("H*",$_));s/0/ /g;s/1/\#/g;for$
b(1..$_[2]){for(split//){for$c(1..$_[2]){print$_;push@_,$_
;}}print"\n";push@_,"\n";}}@_=reverse@_;print@_[0..$#_-4];