2011/09
2011/10
2011/11
tequal (RFun ra1 rb1) (RFun ra2 rb2) = do f <- tequal ra1 ra2 -- f :: a1 -> a2 g <- tequal rb1 rb2 -- g :: b1 -> b2 return undefined -- ? :: (a1 -> b1) -> a2 -> b2