randomNum.hs

import Data.Char
import System.IO
import System.Random
import System.Environment

numListToString :: [Int] -> String
numListToString []     = []
numListToString (x:xs) = (show x) ++ "\n" ++ numListToString xs

main = do
  args <- getArgs
  gen <- getStdGen
--  putStrLn "Enter a number of Section"
--  n <- getLine
  let n' = read (head args) :: Int
      xs = take (n'*3) $ (randomRs (1,100) gen) :: [Int]
  --mapM_ print xs
  writeFile "randomPath.txt" (numListToString xs)