> module Main where

> import Random

> main :: IO()
> main = do write_files 10000
>           write_files 100000

> write_files :: Int -> IO()
> write_files i
>   = do writeFile ("input-random_list-" ++ s) $ show $ random_list i
>        writeFile ("input-sorted-" ++ s)      $ show $ sorted i
>        writeFile ("input-revsorted-" ++ s)   $ show $ revsorted i
>   where s = show i

> random_list :: Int -> [Int]
> random_list i = take i $ randoms $ mkStdGen 100

> sorted :: Int -> [Int]
> sorted i = [1..i]

> revsorted :: Int -> [Int]
> revsorted i = reverse [1..i]