forests  ::  [Int] -> [Forest]
forests  =   foldrn (concatMap . prefixes2) (wrap . wrap . Leaf)
forests  ::  [Int] -> [Forest]
forests  =   foldrn (concatMap . prefixes2) (wrap . wrap . Leaf)
forests  =   foldrn (concatMap . prefixes2) (wrap . wrap . Leaf)