#! /bin/ksh

dict=/usr/share/dict/words
pat="^[pb][aeiouy][pb][pb]*.*[aeiouy][nm][nm]*[aeiou]$"

grep -i "$pat" $dict