#!/usr/bin/perl
@a=qw.$ @ substr for( shift =( gmtime |9) (_ )x7 );.;
$_=<<;s/[B-J]/$a[15&ord$&] /g;s/[A-Z_]/$a[$&lt'M']$&/g;s/\d/9-$&/eg;
P=D||BF,79;sub l{O=P-8399-D>>7;QEO/74G;O-Q+(Q>>7J};W="
";Z=l(9JREZ- l(8)JSE6+Z-R+PJT='  ';C6..0){pushK,BF13599*_,9,7}
AE(T)x74,WJLE(AI,((K,(TII,K,W),(A)x2)x5;C9..88){U=H/6G*739+_%6*0;
L[U+6,U+5]=BF_*7235199,5,5;S%=2;C8..68-(H+H>3))&8)-H==8)*(7-R))
{L[U+(6+(S/2G)*73+S++%2]=B" _",-7}}print' 'x63,"PWW L"

eval
