Javascript.Utils.a ds_sfsT eta_sfsY = select ds_sfsT (GHC.Ptr.Ptr ds2_sfsX -> let !wild_sfxZ = ffi_wrapper3 _Javascript_Utils_jsAlert ds2_sfsX eta_sfsY in select wild_sfxZ (<{GHC.Tuple.()}> ds3_sft2 -> <{GHC.Tuple.(,)}> ds3_sft2 <{GHC.Tuple.()}>)) Javascript.Utils.jsAlert eta_B2_B2 eta_B1_B1 = Javascript.Utils.a eta_B2_B2 eta_B1_B1 Javascript.Utils.alert1 $dToJSString_sft7 eta_sft6 eta1_sftc = let !ds_sfy6 = $dToJSString_sft7 eta_sft6 in select ds_sfy6 (GHC.Ptr.Ptr ds1_sftb -> let !wild_sfy5 = ffi_wrapper3 _Javascript_Utils_jsAlert ds1_sftb eta1_sftc in select wild_sfy5 (<{GHC.Tuple.()}> ds2_sftg -> <{GHC.Tuple.(,)}> ds2_sftg <{GHC.Tuple.()}>)) Javascript.Utils.alert eta_B3_B3 eta_B2_B2 eta_B1_B1 = Javascript.Utils.alert1 eta_B3_B3 eta_B2_B2 eta_B1_B1 Javascript.Utils.$wccall2 ds_sftk eta_sftl = ffi_wrapper3 _Javascript_Utils_jsTrace_ ds_sftk eta_sftl Javascript.Utils.a1 ds_sftp eta_sftu = select ds_sftp (GHC.Ptr.Ptr ds2_sftt -> let !wild_sfyd = ffi_wrapper3 _Javascript_Utils_jsTrace_ ds2_sftt eta_sftu in select wild_sfyd (<{GHC.Tuple.()}> ds3_sfty -> <{GHC.Tuple.(,)}> ds3_sfty <{GHC.Tuple.()}>)) Javascript.Utils.jsTrace_ eta_B2_B2 eta_B1_B1 = Javascript.Utils.a1 eta_B2_B2 eta_B1_B1 Javascript.Utils.trace eta_B2_B2 eta_B1_B1 = Javascript.Utils.jsTrace_ eta_B2_B2 eta_B1_B1 Javascript.Utils.$wccall1 ds_sftC eta_sftD = ffi_wrapper3 _Javascript_Utils_dump_ ds_sftC eta_sftD Javascript.Utils.a2 ds_sftH eta_sftM = select ds_sftH (GHC.Ptr.Ptr ds2_sftL -> let !wild_sfyj = ffi_wrapper3 _Javascript_Utils_dump_ ds2_sftL eta_sftM in select wild_sfyj (<{GHC.Tuple.()}> ds3_sftQ -> <{GHC.Tuple.(,)}> ds3_sftQ <{GHC.Tuple.()}>)) Javascript.Utils.dump_ eta_B2_B2 eta_B1_B1 = Javascript.Utils.a2 eta_B2_B2 eta_B1_B1 Javascript.Utils.dump1 x_sftT eta_sftY = select x_sftT (GHC.Ptr.Ptr ds1_sftX -> let !wild_sfyn = ffi_wrapper3 _Javascript_Utils_dump_ ds1_sftX eta_sftY in select wild_sfyn (<{GHC.Tuple.()}> ds2_sfu2 -> <{GHC.Tuple.(,)}> ds2_sfu2 <{GHC.Tuple.()}>)) Javascript.Utils.dump eta_B2_B2 eta_B1_B1 = Javascript.Utils.dump1 eta_B2_B2 eta_B1_B1 Javascript.Utils.$wccall ds_sfu7 ds1_sfu8 eta_sfu9 = ffi_wrapper4 _Javascript_Utils_dump2_ ds_sfu7 ds1_sfu8 eta_sfu9 Javascript.Utils.dump2_ ds_sfud ds1_sfug = select ds_sfud (GHC.Ptr.Ptr ds3_sfuk -> select ds1_sfug (GHC.Ptr.Ptr ds5_sful -> let !wild_sfyt = ffi_wrapper4 _Javascript_Utils_dump2_ ds3_sfuk ds5_sful GHC.Prim.realWorld# in select wild_sfyt (<{GHC.Tuple.(,)}> ds6_sfys ds7_sfuq -> GHC.Ptr.Ptr ds7_sfuq))) <{Javascript.Utils.dump'}> a7_sfut eta_sfuw = select a7_sfut (GHC.Ptr.Ptr ds1_sfuA -> select eta_sfuw (GHC.Ptr.Ptr ds3_sfuB -> let !wild_sfyy = ffi_wrapper4 _Javascript_Utils_dump2_ ds1_sfuA ds3_sfuB GHC.Prim.realWorld# in select wild_sfyy (<{GHC.Tuple.(,)}> ds4_sfyx ds5_sfuG -> GHC.Ptr.Ptr ds5_sfuG))) <{Javascript.Utils.dumpString'}> a7_sfuJ eta_sfuM = select a7_sfuJ (GHC.Ptr.Ptr ds1_sfuQ -> select eta_sfuM (GHC.Ptr.Ptr ds3_sfuR -> let !wild_sfyD = ffi_wrapper4 _Javascript_Utils_dump2_ ds1_sfuQ ds3_sfuR GHC.Prim.realWorld# in select wild_sfyD (<{GHC.Tuple.(,)}> ds4_sfyC ds5_sfuW -> GHC.Ptr.Ptr ds5_sfuW))) Javascript.Utils.$wccall4 ds_sfv1 ds1_sfv2 eta_sfv3 = ffi_wrapper4 _Javascript_Utils_setTimeout_ ds_sfv1 ds1_sfv2 eta_sfv3 Javascript.Utils.a3 ds_sfv8 ds1_sfvb eta_sfvh = select ds_sfv8 (GHC.Types.I# ds3_sfvf -> select ds1_sfvb (GHC.Ptr.Ptr ds5_sfvg -> let !wild_sfyJ = ffi_wrapper4 _Javascript_Utils_setTimeout_ ds3_sfvf ds5_sfvg eta_sfvh in select wild_sfyJ (<{GHC.Tuple.(,)}> ds6_sfvm ds7_sfvn -> <{GHC.Tuple.(,)}> ds6_sfvm (GHC.Ptr.Ptr ds7_sfvn)))) Javascript.Utils.setTimeout_ eta_B3_B3 eta_B2_B2 eta_B1_B1 = Javascript.Utils.a3 eta_B3_B3 eta_B2_B2 eta_B1_B1 Javascript.Utils.$wa ww_sfvD w_sfvs w1_sfvF = let !ds_sfyT = Javascript.Base.Types.FakePtr w_sfvs in select ds_sfyT (GHC.Ptr.Ptr ds1_sfvx -> let !tpl_sfyS = w_sfvs, !wild_sfyR = ffi_wrapper3 makeCallback ds1_sfvx GHC.Prim.realWorld# in select wild_sfyR (<{GHC.Tuple.(,)}> ds2_sfyQ ds3_sfvE -> let !wild1_sfyP = ffi_wrapper4 _Javascript_Utils_setTimeout_ ww_sfvD ds3_sfvE w1_sfvF in select wild1_sfyP (<{GHC.Tuple.(,)}> ds4_sfvK ds5_sfvL -> <{GHC.Tuple.(,)}> ds4_sfvK (GHC.Ptr.Ptr ds5_sfvL)))) <{Javascript.Utils.defer'1}> w_sfvQ w1_sfvU w2_sfvV = select w_sfvQ (GHC.Types.I# ww_sfvT -> Javascript.Utils.$wa ww_sfvT w1_sfvU w2_sfvV) <{Javascript.Utils.defer'}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Javascript.Utils.defer'1}> eta_B3_B3 eta_B2_B2 eta_B1_B1 Javascript.Utils.defer1 eta_sfvY eta1_sfwa = let !ds_sfz3 = Javascript.Base.Types.FakePtr eta_sfvY in select ds_sfz3 (GHC.Ptr.Ptr ds1_sfw3 -> let !tpl_sfz2 = eta_sfvY, !wild_sfz1 = ffi_wrapper3 makeCallback ds1_sfw3 GHC.Prim.realWorld# in select wild_sfz1 (<{GHC.Tuple.(,)}> ds2_sfz0 ds3_sfw9 -> let !wild1_sfyZ = ffi_wrapper4 _Javascript_Utils_setTimeout_ 0 ds3_sfw9 eta1_sfwa in select wild1_sfyZ (<{GHC.Tuple.(,)}> ds4_sfwf ds5_sfwg -> <{GHC.Tuple.(,)}> ds4_sfwf (GHC.Ptr.Ptr ds5_sfwg)))) Javascript.Utils.defer eta_B2_B2 eta_B1_B1 = Javascript.Utils.defer1 eta_B2_B2 eta_B1_B1 Javascript.Utils.setTimeout eta_B2_B2 eta_B1_B1 = Javascript.Utils.defer1 eta_B2_B2 eta_B1_B1 <{Javascript.Utils.setTimeout'}> eta_B3_B3 eta_B2_B2 eta_B1_B1 = <{Javascript.Utils.defer'1}> eta_B3_B3 eta_B2_B2 eta_B1_B1 Javascript.Utils.a4 ds_sfwk eta_sfwp = select ds_sfwk (GHC.Ptr.Ptr ds2_sfwo -> let !wild_sfz8 = ffi_wrapper3 _Javascript_Utils_clearTimeout ds2_sfwo eta_sfwp in select wild_sfz8 (<{GHC.Tuple.()}> ds3_sfwt -> <{GHC.Tuple.(,)}> ds3_sfwt <{GHC.Tuple.()}>)) Javascript.Utils.clearTimeout eta_B2_B2 eta_B1_B1 = Javascript.Utils.a4 eta_B2_B2 eta_B1_B1 Javascript.Utils.$wccall3 ds_sfwy ds1_sfwz eta_sfwA = ffi_wrapper4 _Javascript_Utils_setInterval_ ds_sfwy ds1_sfwz eta_sfwA Javascript.Utils.a5 ds_sfwF ds1_sfwI eta_sfwO = select ds_sfwF (GHC.Types.I# ds3_sfwM -> select ds1_sfwI (GHC.Ptr.Ptr ds5_sfwN -> let !wild_sfze = ffi_wrapper4 _Javascript_Utils_setInterval_ ds3_sfwM ds5_sfwN eta_sfwO in select wild_sfze (<{GHC.Tuple.(,)}> ds6_sfwT ds7_sfwU -> <{GHC.Tuple.(,)}> ds6_sfwT (GHC.Ptr.Ptr ds7_sfwU)))) Javascript.Utils.setInterval_ eta_B3_B3 eta_B2_B2 eta_B1_B1 = Javascript.Utils.a5 eta_B3_B3 eta_B2_B2 eta_B1_B1 Javascript.Utils.$wa1 ww_sfxa w_sfwZ w1_sfxc = let !ds_sfzo = Javascript.Base.Types.FakePtr w_sfwZ in select ds_sfzo (GHC.Ptr.Ptr ds1_sfx4 -> let !tpl_sfzn = w_sfwZ, !wild_sfzm = ffi_wrapper3 makeCallback ds1_sfx4 GHC.Prim.realWorld# in select wild_sfzm (<{GHC.Tuple.(,)}> ds2_sfzl ds3_sfxb -> let !wild1_sfzk = ffi_wrapper4 _Javascript_Utils_setInterval_ ww_sfxa ds3_sfxb w1_sfxc in select wild1_sfzk (<{GHC.Tuple.(,)}> ds4_sfxh ds5_sfxi -> <{GHC.Tuple.(,)}> ds4_sfxh (GHC.Ptr.Ptr ds5_sfxi)))) Javascript.Utils.interval1 w_sfxn w1_sfxr w2_sfxs = select w_sfxn (GHC.Types.I# ww_sfxq -> Javascript.Utils.$wa1 ww_sfxq w1_sfxr w2_sfxs) Javascript.Utils.interval eta_B3_B3 eta_B2_B2 eta_B1_B1 = Javascript.Utils.interval1 eta_B3_B3 eta_B2_B2 eta_B1_B1 Javascript.Utils.setInterval eta_B3_B3 eta_B2_B2 eta_B1_B1 = Javascript.Utils.interval1 eta_B3_B3 eta_B2_B2 eta_B1_B1 Javascript.Utils.a6 ds_sfxv eta_sfxA = select ds_sfxv (GHC.Ptr.Ptr ds2_sfxz -> let !wild_sfzu = ffi_wrapper3 _Javascript_Utils_clearInterval ds2_sfxz eta_sfxA in select wild_sfzu (<{GHC.Tuple.()}> ds3_sfxE -> <{GHC.Tuple.(,)}> ds3_sfxE <{GHC.Tuple.()}>)) Javascript.Utils.clearInterval eta_B2_B2 eta_B1_B1 = Javascript.Utils.a6 eta_B2_B2 eta_B1_B1 Javascript.Utils.dumpString1 x_sfxH eta_sfxT = let !ds_sfzC = Javascript.Base.Types.FakePtr x_sfxH in select ds_sfzC (GHC.Ptr.Ptr ds1_sfxM -> let !tpl_sfzB = x_sfxH, !wild_sfzA = ffi_wrapper3 jsToString ds1_sfxM GHC.Prim.realWorld# in select wild_sfzA (<{GHC.Tuple.(,)}> ds2_sfzz ds3_sfxS -> let !wild1_sfzy = ffi_wrapper3 _Javascript_Utils_dump_ ds3_sfxS eta_sfxT in select wild1_sfzy (<{GHC.Tuple.()}> ds4_sfxX -> <{GHC.Tuple.(,)}> ds4_sfxX <{GHC.Tuple.()}>))) Javascript.Utils.dumpString eta_B2_B2 eta_B1_B1 = Javascript.Utils.dumpString1 eta_B2_B2 eta_B1_B1