module Maze where

import Control.Monad
...

module ReformatText(main) where

import System(getArgs)
...

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

import Data.Packed.Matrix
import System.Environment
import System.Posix.Unistd
...

/// Rotates a list by one place forward.
let rotate lst =
    List.tail lst @ [List.head lst]
...

{- Getting the frequencies of all trigrams in a word -}

module TrigramFrequency (frequencies) where
...

r13 w = map (\c -> chr ((((ord c + 13) - 97) `mod` 26) + 97) w

g = getLine
r = toRational
c = concat
...

newtype Coord = Coord (Int, Int) deriving (Eq)
data Square = Square Coord Coord

...

type IRCHandle = Handle
type LogHandle = Handle
type ChannelName = String
...

module Main where

import Graphics.UI.Gtk
...

module Main where

import Text.XML.HaXml
...

class IsComplex a where
    isComplex :: a -> Bool

...

import Control.Monad (mapM_, liftM)
import Data.List (sort)
import qualified Data.ByteString.Lazy.Char8 as L
...

compress :: [Int] -> [[Int]]
compress (x:xs) = let (y,ys) = walk x xs
                  in [x,y]:compress ys
...

---
--- Tag
...

import Prelude hiding (lookup)
import System.Random
import Control.Monad
...

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

...

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

import System.IO
import Data.Word
...