printLotus :: (Show e) => [e]   -- ^ the lotus puzzle
           -> String            -- ^ an aesthetically pleasing lotus
printLotus lts = if null lts then "\nNo solution\n"
                 else "\n" ++ unlines (map show (chunksOf 7 lts))
printLotus :: (Show e) => [e]   -- ^ the lotus puzzle
           -> String
printLotus lts = if null lts then "\nNo solution\n"
                 else "\n" ++ unlines (map show (chunksOf 7 lts))
printLotus lts = if null lts then "\nNo solution\n"
                 else "\n" ++ unlines (map show (chunksOf 7 lts))