@@ -279,6 +279,11 @@ translateExpression _ (SOp op vars)
279279 | LBGe <- op
280280 , (lhs:rhs:_) <- vars = translateBinaryOp ">=" lhs rhs
281281
282+ | LStrHead <- op
283+ , (arg:_) <- vars = translateVariableName arg ++ "[0]"
284+ | LStrTail <- op
285+ , (arg:_) <- vars = let v = translateVariableName arg in
286+ v ++ ".substr(1," ++ v ++ ".length-1)"
282287 | LStrConcat <- op
283288 , (lhs:rhs:_) <- vars = translateBinaryOp "+" lhs rhs
284289 | LStrEq <- op