1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
type ref; // consts const w: int; // vars var favorite: int; // procedure procedure SetToSeven(p: int); modifies favorite ; ensures favorite==p; implementation SetToSeven(l: int) { favorite:=w; }