$\+=(4)[$_%3]+(4)[$_%5]||y///cfor glob<>;print