module Main where
import PolyLib.Prelude
import PolyLib.Base(pmap)
import PolyLib.BaseM(pmapM,pmapM',pmapMr)
data Rose a = Fork a [Rose a] deriving (Eq,Show)
f = Fork 
l x = f x []
x = f "12" [l "ab", l "q"]
main = print (pmapM' True  id x == pmapM  id x
             ,pmapM' False id x == pmapMr id x)