<>=~$"; if(@_=2..$'/~-$`){ y/ //-1or$%+=$'-$_*~-$`+1for`factor @_` } print$%