get;say (1,0,0,0,(*+*+*+*)%17...*)[+$_%4912] for lines