#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.)"\x05\x06\x08 \x0c\x0e\x10\x12\x14\x17\x19\x1b\x1f$(*-/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
Note that non-ascii characters in the above source code will be escaped (such as \x9f).