m=mano

elefantes :: Int -> IO()
elefantes n = elefaux 2 n

elefaux :: Int -> Int -> IO()
elefaux k n = if k<n then do putStrLn ("Se " ++ show(k) ++ " elefantes incomodam muita gente,")
	      	     	     putStrLn(show(k+1) ++ " elefantes incomodam muito mais!")
			     elefaux (k+1) n
			   else return()