#!/usr/bin/runghc

module Recursion03Bomb where

recursionLecture :: Int -> String -> String
recursionLecture day indent = indent ++ " More recursion\n" ++ recursionLecture (day + 1) (indent ++ "  ")

main :: IO ()
main = do
  putStrLn (take 500 (recursionLecture 0 ""))