get;loop {say (1,0,0,0,(*+*+*+*)%17...*)[+get%4912]}