commit 7ae0afbc4b57a68f79457dd881bc98efda95eda1
Author: Tretter <j.tretter@accenture.com>
Date:   Tue Feb 7 20:06:59 2017 +0000

    initial checkin from subversion

diff --git a/examineWhereTheIssueIs.hs b/examineWhereTheIssueIs.hs
new file mode 100644
index 0000000..ab50ec0
--- /dev/null
+++ b/examineWhereTheIssueIs.hs
@@ -0,0 +1,5 @@
+ifa = do 
+	putStr "Name: "
+	name <- getLine
+	if (name == "Koen")
+		then putStrLn "I think Debugging haskell is simple"
diff --git a/exs.hs b/exs.hs
new file mode 100644
index 0000000..59484a2
--- /dev/null
+++ b/exs.hs
@@ -0,0 +1,7 @@
+ifa = do 
+	putStr "Name: "
+	name <- getLine
+	if name == "Koen"
+		then putStrLn "I know you"
+		else return ()
+
diff --git a/io1.hs b/io1.hs
new file mode 100644
index 0000000..fa2baaa
--- /dev/null
+++ b/io1.hs
@@ -0,0 +1,4 @@
+main = do
+	putStrLn "Please enter your name: "
+	name <- getLine
+	putStrLn ("Hello, " ++ name ++ ", how are you?")
diff --git a/numGuess1.hs b/numGuess1.hs
new file mode 100644
index 0000000..5c56aa0
--- /dev/null
+++ b/numGuess1.hs
@@ -0,0 +1,12 @@
+doGuessing num = do
+	putStrLn "Enter your guess:"
+	guess <- getLine
+	if (read guess) < num
+		then do putStrLn "Too low!"
+			doGuessing num
+		else if (read guess) > num
+		then do putStrLn "Too high!"
+			doGuessing num
+		else do putStrLn "You Win!"
+
+
diff --git a/recurs1.hs b/recurs1.hs
new file mode 100644
index 0000000..168840d
--- /dev/null
+++ b/recurs1.hs
@@ -0,0 +1,2 @@
+factorial 0 = 1
+factorial n = n * factorial (n-1)
diff --git a/rettest1.hs b/rettest1.hs
new file mode 100644
index 0000000..20d71fd
--- /dev/null
+++ b/rettest1.hs
@@ -0,0 +1,11 @@
+main =
+ do x <- getX
+    putStrLn x
+
+getX =
+ do return "hello"
+    return "aren't"
+    return "these"
+    return "returns"
+    return "rather"
+    return "pointless?"
diff --git a/stringManip.hs b/stringManip.hs
new file mode 100644
index 0000000..8e031bc
--- /dev/null
+++ b/stringManip.hs
@@ -0,0 +1,18 @@
+module StringManip where
+
+import Data.Char
+
+uppercase, lowercase :: String -> String
+uppercase = map toUpper
+lowercase = map toLower
+
+capitalise :: String -> String
+capitalise x = 
+  let capWord (x:xs) = toUpper x : xs
+  in unwords (map capWord (words x))
+
+yy :: String -> String
+yy a = 
+  let capWord (a:b) = toUpper a : b
+  in a
+