let rec($)i?(p=print_int)j=for m=i-j to j-i do p(abs(j+min 0m));p(abs(j-max 0m));print_char ' 'done;i