#load"unix.cma";;while 0=0do let t=ref(read_float())in Obj.magic String.iter(fun i->if!t>float i*.15777e3then t:=!t-.1.)"
$(*-/147:H";let s,n,h,d,m,y=Obj.magic Unix.gmtime!t in Printf.printf"%d-%02d-%02d %02d:%02d:%02d
"(y+1900)(m+1)d h n s done