Implement fibonacci function

t1.hs

@@ -1,4 +1,6 @@
-f n = n * n
+f n = case n of
+	0 -> 1
+	_ -> n * f (n - 1)
 
 main :: IO ()
 main = print ( f 5 )