my $motif = [IFVL][RK][AGST];
my $answer = make_approximate($motif, 1);
print $answer, \n;

##</code><code>##

(?:[IFVL](?:[RK].|.[AGST])|.[RK][AGST])