
perl -e &#39;map{print pack(&quot;C&quot;,$n?$_-$n: $_);$n=$_} qw/70 171 279 384 506 538 616 713 829 926 1034 1044/&#39;