Ticket #1988: PPrCF.hs

File PPrCF.hs, 197 bytes (added by guest, 6 years ago)
Line 
1module PPrCF (prCFTree) where
2
3newtype CFTree = CFTree (String, [CFTree])
4
5prCFTree :: CFTree -> String
6prCFTree (CFTree (_,trees)) = concatMap ps trees
7    where ps t@(CFTree (_,[])) = prCFTree t