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