220
@verb #9682:"G" none none none rdo #9682
@program #9682:"G" none none none
foo = "98  93  117 78  86  99  116 82  81  104 104 117 110 78  93  101 111 97  102 88  115 82  86  88  110 81  104 114 80"
foo = $su:explode(foo)
"Calculate the pairwise diffs"
diff = {}
for x in [2..length(foo)]
  foo[x - 1] = toint(foo[x - 1])
  foo[x] = toint(foo[x])
  diff = {@diff, foo[x] - foo[x - 1]}
endfor
s = ""
for y in (diff)
  s = s + " " + tostr(y)
endfor
player:tell(s)
"Last modified by Dax (#789) on Tue May  3 14:09:39 2005 MDT."
.

0