#!/usr/bin/runghc

module Recursion01OrderMatters where

orderMatters :: Int -> String -> String
orderMatters n indent =
  if n > 0
    then show n ++ indent ++ "before\n" ++ orderMatters (n - 1) (indent ++ "  ") ++ show n ++ indent ++ "after\n"
    else ""

main :: IO ()
main = do
  putStrLn (orderMatters 4 " ")