(for i(-:= n(-(read)1))n(prn:+""(n-of abs.i" ")(n-of(+(*(- n abs.i)2)1)'*)))