@@ -342,6 +342,11 @@ translateExpression _ (SOp op vars)
342 , (arg:_) <- vars = translateVariableName arg
342 , (arg:_) <- vars = translateVariableName arg
343 | LFloatInt <- op
343 | LFloatInt <- op
344 , (arg:_) <- vars = translateVariableName arg
344 , (arg:_) <- vars = translateVariableName arg
346+ , (arg:_) <- vars = translateVariableName arg ++ ".charCodeAt(0)"
349+ "String.fromCharCode(" ++ translateVariableName arg ++ ")"
346 | LFExp <- op
351 | LFExp <- op
347 , (arg:_) <- vars = "Math.exp(" ++ translateVariableName arg ++ ")"
352 , (arg:_) <- vars = "Math.exp(" ++ translateVariableName arg ++ ")"