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