add fibonacci

examples/fibonacci.mmm

@@ -0,0 +1,12 @@
+void main() {
+  int fib = fibbonacci_single_return(15);
+  println(str(fib));
+}
+
+int fibbonacci_single_return(int n) {
+  int ret = n;
+  if n > 1 {
+    ret = fibbonacci_single_return(n - 1) + fibbonacci_single_return(n - 2);
+  }
+  return ret;
+}

src/Interpreter/Interpreter.hs

@@ -35,6 +35,7 @@ interpretStatement (InterpretState state _) (ExpressionStatement expression) = d
 interpretStatement (InterpretState state _) (FunctionDefinitionStatement _) = do
   return (InterpretState state Nothing)
 interpretStatement (InterpretState state _) (ReturnStatement expression) = do
+  -- TODO: return should cancel the current function
   ret <- interpretExpression state expression
   return (InterpretState state (Just ret))
 interpretStatement (InterpretState state _) (ControlStatement control) = do

src/Parser/Name.hs

@@ -6,6 +6,8 @@ import Text.Parsec.String
 
 parseName :: Parser Name
 parseName = do
-  fistChar <- letter
-  rest <- many (digit <|> letter)
+  fistChar <- startChar
+  rest <- many (digit <|> startChar)
   return (fistChar : rest)
+  where
+    startChar = letter <|> char '_'