path: root/functions.ml

let u = UTF8.from_utf8string

let eq = u"="
let neq = u"<>"
let lt = u"<"
let le = u"<="
let gt = u">"
let ge = u">="

let add = u"+"
let mul = u"*"
let pow = u"^"
let div = u"/"
let sub = u"-"