7 lines
176 B
Plaintext
7 lines
176 B
Plaintext
function f (const x : unit) : unit is
|
|
begin skip end with unit
|
|
|
|
function main (const p : unit ; const s : unit) : unit is
|
|
var y : unit := f(unit) ;
|
|
begin skip end with y
|