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