#!perl -p
map${$'%-$_}+=$_,//..($0=$_)/2;s;$;: $0