type toto is record
  a : nat ;
  b : nat
end

const foo : int = 3