module Main (main) where
 
data BinTree a = Empty | Node a (BinTree a) (BinTree a)
    deriving (Show)
 
showTree :: Show a => BinTree a -> Int -> String
showTree (Empty) _ = []
showTree (Node t l r) n = replicate n '*' ++ show t ++ "\n" ++ showTree l (n+1) ++ showTree r (n+1)
 
main :: IO ()
main = do
    let x = Node "Parent" (Node "childLeft" (Node "grandChildLeftLeft" Empty Empty) Empty) (Node "childRight" Empty Empty)
    putStrLn $ showTree x 0

bW9kdWxlIE1haW4gKG1haW4pIHdoZXJlCgpkYXRhIEJpblRyZWUgYSA9IEVtcHR5IHwgTm9kZSBhIChCaW5UcmVlIGEpIChCaW5UcmVlIGEpCiAgICBkZXJpdmluZyAoU2hvdykKCnNob3dUcmVlIDo6IFNob3cgYSA9PiBCaW5UcmVlIGEgLT4gSW50IC0+IFN0cmluZwpzaG93VHJlZSAoRW1wdHkpIF8gPSBbXQpzaG93VHJlZSAoTm9kZSB0IGwgcikgbiA9IHJlcGxpY2F0ZSBuICcqJyArKyBzaG93IHQgKysgIlxuIiArKyBzaG93VHJlZSBsIChuKzEpICsrIHNob3dUcmVlIHIgKG4rMSkKCm1haW4gOjogSU8gKCkKbWFpbiA9IGRvCiAgICBsZXQgeCA9IE5vZGUgIlBhcmVudCIgKE5vZGUgImNoaWxkTGVmdCIgKE5vZGUgImdyYW5kQ2hpbGRMZWZ0TGVmdCIgRW1wdHkgRW1wdHkpIEVtcHR5KSAoTm9kZSAiY2hpbGRSaWdodCIgRW1wdHkgRW1wdHkpCiAgICBwdXRTdHJMbiAkIHNob3dUcmVlIHggMA==