1
2
3
4

module Main where

import Graphics.UI.Gtk
...

1
2
3
4

module Main where

import Text.XML.HaXml
...

1
2
3
4

class IsComplex a where
    isComplex :: a -> Bool

...

1
2
3
4

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

1
2
3
4

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

1
2
3
4

---
--- Tag
...

1
2
3
4

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

1
2
3
4

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

...

1
2
3
4

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

1
2
3

import System.IO
import Data.Word
...