#!/usr/bin/perl -w
$|=8;open X,$0;grep{s;#\s(.*)#\n;$m.=$1;meg}(<X>);; #        Put #
@n=qw;. o 0 O 0 o;;$s=22;$m=" "x$s.$m;$l=length $m; #       your #
for(0..2*$l){$r=substr($m,($_%$l),$s);$r.=substr($m #    message #
,0,$s-(length$r));print"  $n[$_%@n] ",$r," $n[$_%@n #      here. #
]  \r";select($8,$',$@,.1);}print" "x($s+$|*8),"\r" #  Have fun! #