diff --git a/src/BC/Types.hs b/src/BC/Types.hs
index 3ccb1cc..d47ba17 100644
--- a/src/BC/Types.hs
+++ b/src/BC/Types.hs
@@ -10,6 +10,7 @@ data Value = BNum Number
            | BWhile [Value] [[Value]]
            | BDef Value [Value]
            | BFun String [String] [[Value]]
+           | BNative ([Value] -> Value)
            | BCall Value [[Value]]
            | BBraced [Value]
            | BErr String