module Main where import PolyLib.Prelude import PolyLib.Thread(thread) import PolyLib.BaseM(pmapM) data Tree a = Leaf a | Bin (Tree a) (Tree a) deriving (Eq,Show) main = print ( thread (Bin (Leaf "ab") (Leaf "12")) , pmapM Just "PJ" )