geekrelief

#!/bin/bash
# prints a tree for the current dir or the one supplied
# if on ubuntu : sudo apt-get install tree
# if on mac : sudo port install tree
if [ "$1" == "" ]; then
    eval "find . -print | sed -e 's;[^/]*/;|____;g;s;____|; |;g'"
else
    eval "find $1 -print | sed -e 's;[^/]*/;|____;g;s;____|; |;g'"
fi

geekrelief

-- Parsec 3 tutorial code --

-- module Main where -- this isn't necessary

import Text.Parsec
import Text.Parsec.String (Parser) -- type Parser = Parsec String ()
import Text.Parsec.Expr
import qualified Text.Parsec.Token as P
import Text.Parsec.Language (haskellStyle)
import Data.Char