job jaba 8 1000 perm disc2 50 1 time 5 0 size 20000
mode list.yes
rtp35job = set 1 disc
lookup rtp35gram
if ok.no
lib temp.libbobs rtp35gram
rtp35job = edit rtp35gram
i/
job jaba 9 1000 time 20 0 perm disc2 70 2 area 8 output 200000 size 200000
mode list.yes
(rtp35tab = set 30 disc
if ok.no 
finis
bobstables=assign rtp35tab
lookup bobs
if ok.no
  lib temp.libbobs bobs
out35gram = set 1 disc
o out35gram
head cpu
bobs
head cpu
o c
lib on.libbobs rtp35tab out35gram
finis)

/,
g b/;;/@/, 
l t,
l./goalsymbol/,
g b/</%/,
l t,
l./goalsymbol/,
g b/>/%/,
l t,
l./empty/,
g b/::=/~/,
l t,
;find simple expression og lav relationerne tilbage til det rigtige
l./simple expression%=%/,
l./%%/, r/%%%/% <>/,
l1, r/% % %/% < %/,
l1, r/%=/<=/,
l1, r/% % %/% > %/,
l1, r/%=/>=/,



f
if ok.no
finis
i rtp35job

if ok.no
finis
finis output.no