QuoteRef: hehnEC7_1975 ;;39 random number generator: random: module seed: par in rationals; export variable, generate; seed: ...(this is default value);variable: var in rationals; variable<- seed (initializing code); generate: ...(changes variable) .box. then can say r: random [seed:123](overrides default seed) and use a locally known variable r.variable ...

QuoteRef: hehnEC7_1975 ;;41 module definition eg complex-stack: stack (entries: complex .circlePlus. numbers) c: var in complex .circlePlus. numbers complex-stack .circlePlus. push (entry:c)

QuoteRef: liskB4_1974 ;;13 data structure language by clustering accessing eg. stack: cluster (element type: type) is push, pop, top, empty; rep (typeparam:type )=(tp:int; e type:type;stk:array 1.. of type_param) create code to initialize the stack // push: operation (s:rep, v:e_type); s.tp :=s.tp+1; s.stk s.tp := v; return; end; then s: stack (token) creates s as a stack of tokens

QuoteRef: palmJ5_1973 ;;6 structures by class with accessing and modification procedures eg Class person (public components), type-declarations, begin private-components (eg links internal info), procedure definitions (eg integer procedure age; age := yearnow -birthyear), initialization. routine(eg links person into a doubly linked chain)