variables : term -> term list
# variables `\a:bool. a`;; val it : term list = [`a`] # variables `(a:num) + (b:num)`;; val it : term list = [`b`; `a`]