#! /usr/bin/perl

my %stem;
while( <> ) {
        chomp;
        next unless /^(.*)(?:m|rn)$/;
        print "${1}m -vs- ${1}rn\n" if ++$stem{$1} == 2;
}

##</code><code>##

album -vs- alburn
am -vs- arn
bam -vs- barn
bom -vs- born
bum -vs- burn
chum -vs- churn
cum -vs- curn
dam -vs- darn
dom -vs- dorn
dum -vs- durn
gam -vs- garn
gim -vs- girn
ham -vs- harn
hem -vs- hern
kim -vs- kirn
leam -vs- learn
scam -vs- scarn
sham -vs- sharn
stam -vs- starn
stem -vs- stern
swom -vs- sworn
tam -vs- tarn
tum -vs- turn
um -vs- urn
yam -vs- yarn