PL/0 defrecord Scope instead of deftype