prefixes                 ::  Int -> Tree -> [Tree]
prefixes x t@(Leaf y)    =   [Fork (Leaf x) t]
prefixes                 ::  Int -> Tree -> [Tree]
prefixes x t@(Leaf y)    =   [Fork (Leaf x) t]
prefixes x t@(Leaf y)    =   [Fork (Leaf x) t]