detectUFO :: Node ()
detectUFO = subscribe "video" >>= runHandler findPt >> return ()
detectUFO :: Node ()
detectUFO = subscribe "video" >>= runHandler findPt >> return ()
detectUFO = subscribe "video" >>= runHandler findPt >> return ()