print"\ec";{$_=sprintf"%02d"x3,(localtime)[2,$x=1,0];s*.*$x+=4;$k=$&;for (4,6..11){($z=qw{2|!0 2&&!0^1 !1||0^2 0^!1|1&2 2&!0^1 1|!2 !2|1|0 !1^0&2 !$q 1|!0}[$k])=~s#\d#vec$_-4,$&,1#eg;printf"\e[%d;%dH%s$/",$_/3,$x+$_%3, (("|","_","|")[$_%3]x eval$z)||$"}*eg;sleep 1;redo} 321608