Added length&blc commands

1 files changed, 1 insertions, 1 deletions

diff --git a/src/Helper.hs b/src/Helper.hs
index bfeeb66..2b2e31c 100644
--- a/src/Helper.hs
+++ b/src/Helper.hs
@@ -147,7 +147,7 @@ instance Show Expression where
       . foldr1 (\x y -> x . showString " " . y) (map shows ms)
       . showString "\ESC[33m)\ESC[0m"
   showsPrec _ (Prefix p e) = shows p . showString " " . shows e
-data Command = Input String | Watch String | Import String String | Test Expression Expression | ClearState | Time Expression
+data Command = Input String | Watch String | Import String String | Test Expression Expression | ClearState | Time Expression | Length Expression | Blc Expression
   deriving (Show)
 data Instruction = Define Identifier Expression [Instruction] | Evaluate Expression | Comment | Commands [Command] | ContextualInstruction Instruction String
   deriving (Show)