type environment = { variables : (string * _type) list }