comment_token : lexcode ref
# comment_token := Ident "--";; val it : unit = ()
# `let wordsize = 32 -- may change to 64 later and radix = 2 -- only care about binary in radix EXP wordsize`;; val it : term = `let wordsize = 32 and radix = 2 in radix EXP wordsize`