main=interact$(>>=(1%).map read.words).lines 0%_="\n" _%x=unwords(map show x)++'\n':sum x%map abs(zipWith(-)x$tail x++x)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page