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