startRow <- randomRIO (0 :: Int, rows - 1)
    startColumn <- randomRIO (0 :: Int, columns - 1)
    seeds <- replicateM (rows * columns) (randomRIO (0 :: Int, (max rows columns)))
...

module Main where
import Data.IORef
import Data.List
...

module Maze where

import Control.Monad
...

module ReformatText(main) where

import System(getArgs)
...

module Currency where

import Text.Regex.Posix
...

module Currency where

import Text.Regex.Posix
...

module Currency where

import Text.Regex.Posix
...

currency [] = error "empty string"
currency (x:[]) = error "invalid string"
currency (x:xs)
...

main = do s <- getContents
          putStr (unlines (reverse (rotate (lines s))))

...

module Main where
import List
import Text.Regex.Posix
...