guest :: TypingApp t m
guest e = do
  d <- foldDyn (:) [] e
  return $ fmap Prelude.reverse $ (current d)
guest :: TypingApp t m
guest e = do
  d <- foldDyn (:) [] e
  return $ fmap Prelude.reverse $ (current d)
guest e = do
  d <- foldDyn (:) [] e
  return $ fmap Prelude.reverse $ (current d)