function f (const x : unit) : unit is
  begin skip end with unit

function main (const p : unit ; const s : unit) : unit is
  begin
    var y : unit := f(unit) ;
  end with y