#!perl -p for$"(1..($s=$_)/2){$_%$"or$s+=$"}s/$/: $s/