;;$
x =
time
;;$
u=q
/x/
;;;
my$
y;$
x =
'l'
;;$
  z
=24
/2;
;;@
 O=
map
{ $
 y.
&$x
 ($
s ,
$_)
  }
grep
  !
/5/
,
reverse 
unpack
"a$
z"x
$z,
<<_
2513928482101100200304450009630872414010000029520110520395090000092317
+27953215528852001789748089000009144872
_
;;;
sub 
l{$
y .
localtime 
pop
};;
print 
map
{ $
  y
.lc
  }
unpack
   (
"$u$_ a"
  ,
pop
  @
O )
for


((($z/3),(2*$z-3-(8*2+cos(0)))),(+6,(atan2(0,0)+1)));
[download]