use warnings;
use strict;
use feature 'say';
print q{"@37make00001111" };
for my $i (643 .. 647, 667 .. 671, 691 .. 695){
  print qq{"\@${i}make11111111" };
}
say '';