$\+=(4)[$_%3]+(4)[$_%5]||-1+length for glob<>;print