let lookup env x = 
  List.assoc x env