the following code is in Haskell, need each line of code commented and explain how it works for better understanding

import Data.Monoid ((), mempty) import Data.List (intercalate, transpose) hanoi Int -> t -> t -> t->[[t]] hanoi 0 mempty hanoi (n - 1) 1 m r [[1, r] ] hanoi (n - 1) m r 1 hanoi n 1 r m , showHanoi :: Int -> String showHanoi n unlines $ intercalate "-" transpose ((justifyLeft 6 ) Char -> String -> String justifyLeft n c s take n (s replicate n c) main IO ( mainputStrLn $showHanoi 5