23a
@verb #9682:"h" none none none rdo #9682
@program #9682:"h" none none none
foo = "105 98  115 111 104 118 116 115 104 113 100 88  120 90  126 130 118 123 100 107 117 130 105 129 132 116"
foo = $su:explode(foo)
for x in [1..length(foo)]
  foo[x] = toint(foo[x])
  foo[x] = foo[x] - (x - 1)
endfor
diffs = {}
player:tell("Base pairwise diffs for dmarantz EIN 14")
s = ""
for x in [2..length(foo)]
  diffs = {@diffs, foo[x] - foo[x - 1]}
  s = tostr(s, " ", diffs[$])
endfor
player:tell(s)
"Last modified by Dax (#789) on Tue May  3 14:09:39 2005 MDT."
.

0