diff --git a/BASIC.cabal b/BASIC.cabal
--- a/BASIC.cabal
+++ b/BASIC.cabal
@@ -1,5 +1,5 @@
 Name:		BASIC
-Version:	0.1.2.0
+Version:	0.1.2.1
 License:	BSD3
 Author:		Lennart Augustsson
 Maintainer:	Lennart Augustsson
@@ -15,6 +15,7 @@
 	Language.BASIC.Translate
 	Language.BASIC.Types
 Extra-source-files:
+	examples/Func.hs
 	examples/Hello.hs
 	examples/HiLo.hs
 	examples/Infinity.hs
diff --git a/examples/Func.hs b/examples/Func.hs
new file mode 100644
--- /dev/null
+++ b/examples/Func.hs
@@ -0,0 +1,13 @@
+{-# OPTIONS_GHC -fno-warn-type-defaults #-}
+{-# LANGUAGE ExtendedDefaultRules, OverloadedStrings #-}
+module Func where
+import Language.BASIC
+
+main :: IO ()
+main = runBASIC' $ do
+
+    10 FOR I := 0 TO 20
+    20   LET X := I/10
+    30   PRINT X;" ";SIN(X);" ";COS(X);" ";TAN(X);" ";ATN(X);" ";EXP(X);" ";LOG(X);" ";SQR(X);" ";ABS(X);" ";SGN(X);" ";INT(X);" ";RND(X)
+    40 NEXT I
+    100 END