initial attempt at purescript with ContT and setTimeout