diff --git a/init-haskell-project.sh b/init-haskell-project.sh
index a524c83..a19d4da 100755
--- a/init-haskell-project.sh
+++ b/init-haskell-project.sh
@@ -1,39 +1,104 @@
 #!/usr/bin/env zsh
 
+autoload colors
+colors
+for COLOR in RED GREE YELLOW BLUE MAGENTA CYAN BLACK WHITE; do
+    eval $COLOR='$fg_no_bold[${(L)COLOR}]'
+    eval BOLD_$COLOR='$fg_bold[${(L)COLOR}]'
+done
+eval RESET='$reset_color'
+# --- Function declaration and global variables
 answer=""
+# Capitalize a string
+capitalize(){
+    local str="$*"
+    print -- ${${str[1]}:u}${str[2,-1]}
+}
+bk(){print -- "${RED}Bridgekeeper: $*${RESET}"}
+bkn(){print -n -- "${RED}Bridgekeeper: $*${RESET}"}
+you(){print -- "${BLUE}You: $*${RESET}"}
+log(){print -- $*}
+err(){
+    {
+    case $(( $RANDOM % 1 )); in
+    0)  bk "What... is your favourite colour?"
+        you "Blue. No, yel..."
+        log "[You are thrown over the edge into the volcano]"
+        you "You: Auuuuuuuuuuuugh"
+        bk " Hee hee heh."
+        ;;
+    1)  bk "What is the capital of Assyria?"
+        you "I don't know that!"
+        log "[You are thrown over the edge into the volcano]"
+        you "Auuuuuuuuuuuugh"
+        ;;
+    esac
+
+    print -- "\n$*"
+    }>&2
+    exit 1
+}
+# Ask the user for some information
+# Search in .gitconfig some hints to provide default value
 ask(){
     local elem=$1
     local gitconfigelem
-    print -n -- "What is your $elem?"
+    bkn "What is your $elem?"
     [[ -e ~/.gitconfig ]] && {
         gitconfigelem="$(< ~/.gitconfig| awk '$1 == "'$elem'" {$1="";$2="";gsub("^ *","");print}')"
         [[ $gitconfigelem = "" ]] || {
             print -n -- " ($gitconfigelem)"
         }
     }
-    print -n ": "
-    read answer
+    print -n "\n> ";read answer
     [[ $answer = "" ]] && answer=$gitconfigelem
 }
 
-print -n -- "What is the name of your project? (start with a capital)"
-read project
+# Delete the project directory and show an error message
+reinit(){
+    cd ..
+    [[ -e $project ]] && \rm -rf $project
+    err "Something went wrong, I removed the project directory"
+}
 
-err(){print -- $*>&2;exit 1}
+
+# --- Start asking questions
+bk "Stop!"
+bk "Who would cross the Bridge of Death"
+bk "must answer me these questions three,"
+bk "ere the other side he see."
+you "Ask me the questions, bridgekeeper, I am not afraid.\n"
+
+# project name
+bk "What is the name of your project?"
+print -n "> ";read project
+
+if perl -e 'exit("'$project'" =~ /^[a-zA-Z0-9]*$/)'; then
+    err "The project name can't contains non ASCII character"
+fi
+project=${project:l} # use lowercase for project name
+module=$(capitalize $project)
 [[ $project = "" ]] && err "Can't use empty project name"
-[[ -e $project ]] && err "$project already exists"
+[[ -e $project ]] && err "$project directory already exists"
 
+# author name
 ask name
 name="$answer"
+# email
 ask email
 email="$answer"
-print -n -- "A short description of the project: "
-read description
-print -n -- "What is your github user name? "
-read github
+# github
+bk "What is your github user name?"
+print -n "> ";read github
+# synopsis
+bk "What is your project in less than ten words?"
+print -n "> ";read description
+
+# --- We start the creation of the project files here
 mkdir $project
 cd $project
 
+print -- "Initialize git"
 git init .
 
 print -- ".gitignore"
@@ -46,7 +111,8 @@ dist
 .ghci
 END
 
-print -- "$project.cabal"
+print -- "Create files"
+print -- "\t$project.cabal"
 > $project.cabal cat <<END
 -- Initial $project.cabal generated by cabal init.  For further documentation,
 -- see http://haskell.org/cabal/users-guide/
@@ -66,7 +132,7 @@ build-type:             Simple
 -- extra-source-files:
 cabal-version:          >=1.10
 
-executable yml
+executable $project
   main-is:              Main.hs
   -- other-modules:
   -- other-extensions:
@@ -76,9 +142,9 @@ executable yml
   default-language:     Haskell2010
 
 library
-  exposed-modules:      $project
-                        , $project.Foo
-                        , $project.Bar
+  exposed-modules:      $module
+                        , $module.Swallow
+                        , $module.Coconut
   -- other-modules:
   -- other-extensions:
   build-depends:        base >=4.6 && <4.7
@@ -86,7 +152,7 @@ library
   hs-source-dirs:       src
   default-language:     Haskell2010
 
-executable test-yml
+executable test-$project
   hs-source-dirs:       test
   ghc-options:          -Wall
   main-is:              Test.hs
@@ -107,7 +173,6 @@ test-suite Tests
   Type:                 exitcode-stdio-1.0
   default-language:     Haskell2010
   build-depends:        base ==4.6.*, Cabal >= 1.16.0
-                        , vector
                         , $project
                         , HUnit
                         , QuickCheck
@@ -118,13 +183,13 @@ test-suite Tests
                         , tasty-smallcheck
 END
 
-print -- "Setup.hs"
+print -- "\tSetup.hs"
 > Setup.hs cat <<END
 import Distribution.Simple
 main = defaultMain
 END
 
-print -- "LICENSE"
+print -- "\tLICENSE (MIT)"
 > LICENSE cat<<END
 The MIT License (MIT)
 
@@ -151,100 +216,129 @@ END
 
 mkdir src test
 
-print -- "test/Test.hs"
+print -- "\ttest/Test.hs"
 > test/Test.hs cat <<END
 module Main where
 
 import Test.Tasty (defaultMain,testGroup,TestTree)
 
-import $project.Foo.Test
-import $project.Bar.Test
+import $module.Swallow.Test
+import $module.Coconut.Test
 
 main :: IO ()
 main = defaultMain tests
 
 tests :: TestTree
 tests = testGroup "All Tests"
-            [ fooSuite
-            , barSuite
+            [ swallowSuite
+            , coconutSuite
             ]
 END
 
-mkdir -p src/$project
-mkdir -p test/$project/{Foo,Bar}
+mkdir -p src/$module
+mkdir -p test/$module/{Swallow,Coconut}
 
-print -- "test/$project/Foo/Test.hs"
-> test/$project/Foo/Test.hs cat <<END
-module $project.Foo.Test
-    (fooSuite)
+print -- "\ttest/$module/Swallow/Test.hs"
+> test/$module/Swallow/Test.hs cat <<END
+module $module.Swallow.Test
+    (swallowSuite)
 where
 import Test.Tasty (testGroup, TestTree)
 import Test.Tasty.HUnit
-import $project.Foo.Test
+import $module.Swallow
 
-datasetSuite :: TestTree
-datasetSuite = testGroup "Foo"
-    [testCase "foo test" testFoo]
+swallowSuite :: TestTree
+swallowSuite = testGroup "Swallow"
+    [testCase "swallow test" testSwallow]
 
-testFoo :: Assertion
-testFoo = "something" @=? foo "some" "thing"
+testSwallow :: Assertion
+testSwallow = "something" @=? swallow "some" "thing"
 END
 
-print -- "src/$project/Foo.hs"
-> src/$project/Foo.hs cat <<END
-module $project.Foo (foo) where
+print -- "\tsrc/$module/Swallow.hs"
+> src/$module/Swallow.hs cat <<END
+module $module.Swallow (swallow) where
 
-foo :: String -> String -> String
-foo prefix suffix = prefix ++ suffix
+swallow :: String -> String -> String
+swallow prefix suffix = prefix ++ suffix
 END
 
-print -- "test/$project/Bar/Test.hs"
-> test/$project/Bar/Test.hs cat <<END
+print -- "\ttest/$module/Coconut/Test.hs"
+> test/$module/Coconut/Test.hs cat <<END
 {-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
 {-# OPTIONS_GHC -fno-warn-orphans #-}
-module YML.Bar.Test
-    (barSuite)
+module $module.Coconut.Test
+    (coconutSuite)
 where
 
 import Test.Tasty (testGroup, TestTree)
 import Test.Tasty.HUnit
 import Test.Tasty.SmallCheck as SC
 
-import $project.Bar
+import $module.Coconut
 
--- Make instance of BarDataStruct
+-- Make instance of CoconutDataStruct
 -- we simply use consN Constr where N is the arity of Constr (SmallCheck)
 -- we also needed the
 -- {-# LANGUAGE FlexibleInstances, MultiParamTypeClasses #-}
 import Test.SmallCheck.Series
-instance Monad m => Serial m BarDataStruct  where series = cons1 BarDataStruct
--- Now we could test properties with smallcheck on BarDataStruct type.
+instance Monad m => Serial m CoconutDataStruct  where series = cons1 CoconutConstr
+-- Now we could test properties with smallcheck on CoconutDataStruct type.
 
-barSuite :: TestTree
-barSuite = testGroup "bar"
-    [ testCase "bar" testBar
-    , SC.testProperty "bar property" prop_bar
+coconutSuite :: TestTree
+coconutSuite = testGroup "coconut"
+    [ testCase "coconut" testCoconut
+    , SC.testProperty "coconut property" prop_coconut
     ]
 
-testCost :: Assertion
-testCost = bar @=? 10
+testCoconut :: Assertion
+testCoconut = coconut @=? 10
 
-prop_cost_positive :: Property IO
-prop_cost_positive = forAll $ \barStruct -> barfunc barStruct >= 0
+prop_coconut :: Property IO
+prop_coconut = forAll $ \coconutStruct -> coconutfunc coconutStruct >= 0
 END
 
-print -- "src/$project/Bar.hs"
-> src/$project/Bar.hs cat <<END
-module $project.Bar (bar,barfunc,BarDataStruct(..)) where
-data BarDataStruct = BarConstr [Integer]
+print -- "\tsrc/$module/Coconut.hs"
+> src/$module/Coconut.hs cat <<END
+module $module.Coconut (coconut,coconutfunc,CoconutDataStruct(..)) where
+data CoconutDataStruct = CoconutConstr [Integer] deriving (Show)
 
-bar :: Integer
-bar = 10
+coconut :: Integer
+coconut = 10
 
-barfunc :: BarDataStruct -> Int
-barfunc (BarConstr l) = length l
+coconutfunc :: CoconutDataStruct -> Int
+coconutfunc (CoconutConstr l) = length l
 END
 
-cabal sandbox init
+print -- "\tsrc/$module.hs"
+> "src/$module.hs" cat <<END
+module $module where
+import $module.Swallow ()
+import $module.Coconut ()
+END
+
+print -- "\tsrc/Main.hs"
+> "src/Main.hs" cat <<END
+module Main where
+main :: IO ()
+main = do
+    putStrLn "You fight with the strength of many men sir Knight..."
+    putStrLn "You have proved yourself worthy; will you join me?"
+    putStrLn "You make me sad. So be it. Come, Patsy."
+END
+
+print -- "Cabal sandboxing, install and test"
+
+cabal sandbox init || reinit
 cabal install
 cabal test
+
+# -- Final touch
+print "\n\n"
+bk "What... is the air-speed velocity of an unladen swallow?"
+you "What do you mean? An African or European swallow?"
+bk "Huh? I... I don't know that."
+log "[the bridgekeeper is thrown over]"
+bk "Auuuuuuuuuuuugh"
+log "Sir Bedevere: How do you know so much about swallows?"
+you "Well, you have to know these things when you're a king, you know."