LetExp([
 TypeDec[
  (a,
   NameTy(int)),
  (a,
   NameTy(string))],
 VarDec(x,false,SOME(a),
  IntExp(5))],
 VarExp(
  SimpleVar(x)))