use v6;
my $aa = <A L C>;
my $peplen = 4;
.print for [X]('>', $aa xx $peplen);
my $filename = "amino_acid.txt";
my $op = open $filename, :a;
$op.print for [X]('>', $aa xx $peplen);
$op.close;