trees1 :: [Int] -> [Tree]
trees1  =  foldrn (concatMap . prefixes) (wrap . Leaf)
trees1 :: [Int] -> [Tree]
trees1  =  foldrn (concatMap . prefixes) (wrap . Leaf)
trees1  =  foldrn (concatMap . prefixes) (wrap . Leaf)