my@a=(1,0,0,0,(*+*+*+*)%17...*)[^5e3];get;say @a[$_%4912]for lines