#!/usr/bin/perl

s/.*/a/;
while(${_}lt'v'){
    push(@a,$_);
    $_++;
    /[c-eghjlnrtw-z]/&&&o&&next;
    /[^bm]/&&n(&o);
    /f/&&splice(@a,0,0,$a[0]);
    /q/&&splice(@a,2,0,&h);
    /m/&&splice(@a,3,0,$a[$#a]);
    /k/&&splice(@a,3,0,&h);
    /v/&&splice(@a,4,0,' ');
    /o/&&splice(@a,5,0,&h);
    /p/&&splice(@a,5,0,&h);
    /s/&&splice(@a,5,0,$a[0]);
    /s/&&splice(@a,8,0,&h);
    /v/&&splice(@a,9,0,' ');
    /v/&&splice(@a,11,0,&h);
}
print@a,"\n";

sub n{unshift@a,shift}
sub h{shift@a}
sub o{pop@a}
sub u{push@a,shift}
