################################################################################
########################## Digital Clock v1.0 ##################################
################################################################################
$m[0]='521122211132111132115111421142521132111142';$m[1]='153115211521133114133'
.'114153115134113414113153115133115';$m[2]='15311521152131131131121315321515421'
.'542311'.                                                            '31115321'
.'514321'.                                                            '5';;$m[3]
='153115'.                ''.                ''.                      '2115212'#
.'113214'.                   ''.                ''.                   '1144115'#
.'411515'.                      ''.                ''.                '3115211'#
.'321153'.                                                            '11'.'54'#
.'115';//;                                                            ;;;;$m[4]=
'153215221522111332143213411542131432131113311532154115';//;;;$r=q$ _/\|$;$s=5;;
for($k=0;$k<$s;$k++){$x=length($m[$k]);for($i=0;$i<$x;$i=$i+2){$n=substr($m[$k],
$i,1);$c=substr($m[$k],$i+1,1);$~[$k].=substr($r,$c-1,1)x$n;;;}}do{$_=localtime(
time);/.*(\d)(\d):(\d)(\d):(\d)(\d).*/;for($i=0;$i<5;$i++){print"\ec",,qq$\075$x
45,qq{\012}if($i==0);print"\174\040",substr($~[$i],$1*5,5),"\040",substr($~[$i],
$2*5,5),(($i==2)?"\157\040":"\040"x2),(($i==3)?"\157\040":"\040"x2),substr($~[$i
],$3*5,5),"\040",substr($~[$i],$4*5,5),,(($i==2)?"\157\040":"\040"x2),,(($i==3)?
qq{\157\040}:qq{\040}x2),(substr($~[$i],$5*5,5)),qq{\040},substr($~[$i],$6*5,5),
"\040\174","\012";print"\174\040","\040"x41,"\040\174","\012","\075"x45,qq{\012}
                       if($i==4);}}while(sleep(1.5));