Napíšte (v Haskelli) funkciu mkTree typu

data Tree a = Branch a (Tree a) (Tree a) | Nil
mkTree :: Int -> a -> Tree a

Táto funkcia má vrátiť úplný binárny strom so zadanou hĺbkou (prvý parameter, typu Int), v každom vrchole ktorého sa má nachádzať (tá istá) zadaná hodnota (druhý parameter, typu a) v čase lepšom než O(N), kde N je počet uzlov stromu.