#!/usr/bin/runghc

module Recursion11Countdown where

countDown :: Int -> String
countDown 0 = "\n"
countDown n = show n ++ "\n" ++ countDown (n - 1)

countDownTabbed :: Int -> String -> String
countDownTabbed 0 indent = indent ++ "\n"
countDownTabbed n indent = indent ++ show n ++ "\n" ++ countDownTabbed (n - 1) (indent ++ "  ") ++ indent ++ "after\n"

main :: IO ()
main = do
  putStrLn (countDown 10)
  putStrLn (countDownTabbed 10 "")