; drive testInter
(ylppa ((fileVal "GFpq") 11 5 "wjx") (lambda (sg zer zer? one fa fsub fm /)
  (((fileVal "testInter") sg zer? zer one fa fm / fsub) 7 5 4 3)))
(((fileVal "testInter") ((fileVal "rr") "Seed") zero? 0 1 + * / -) 3 1 2 0)

(((fileVal "testInter") ((fileVal "rr") "Seed") zero? 0 1 + * / -) 3 1 2 1)
(((fileVal "testInter") ((fileVal "rr") "Seed") zero? 0 1 + * / -) 5 3 4 2)
