Short Haskell function that prints a christmas tree

ChristmasTree.hs

printTree :: Int -> IO ()
printTree h = (putStrLn . unlines . center) $ "()" : (showTreeLvl <$> [0 .. h]) ++ ["[]"]
  where showTreeLvl l = "/" ++ (take (l * 2) . drop (l `mod` 3) . concat . repeat) "~~o~~*~o~~*~~o~*" ++ "\\"
        center ss = let w = maximum (length <$> ss) in (\s -> concat (replicate ((w - length s) `div` 2) " ") ++ s) <$> ss

-- > printTree 5
--
--      ()
--      /\
--     /~o\
--    /o~~*\
--   /~~o~~*\
--  /~o~~*~o~\
-- /o~~*~o~~*~\
--      []