Fix identifiers starting with t or f not parsing

interp.hs

@@ -49,6 +49,7 @@ bind (env:xs) name value = (M.insert name value env):xs
 instance Show Value where
 	show (IntV i) = show i
 	show (StrV s) = show s
+	show (BoolV b) = show b
 	show (TupleV v) = "(" ++ intercalate "," (map show v) ++ ")"
 	show (ListV v) = show v
 	show (FnV _ _) = "<fn>"

parser.hs

@@ -154,7 +154,7 @@ expr' = try block
 	 <|> parens exprparser
 	 <|> listSeq exprparser ListConst
 	 <|> try ifExpr
-	 <|> bool
+	 <|> try bool
 	 <|> fmap Var identifier
 	 <|> fmap StrConst stringLiteral
 	 <|> fmap IntConst integer