8 lines
175 B
Plaintext
8 lines
175 B
Plaintext
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
|