6 *ab
*|
*cd*|
*pq
*|
*xy
*) ;;
7 *[aeiou
]*[aeiou
]*[aeiou
]*)
9 *aa
*|
*bb
*|
*cc
*|
*dd*|
*ee
*|
*ff
*|
*gg
*|
*hh
*|
*ii
*|
*jj
*|
*kk
*|
*ll
*|
*mm
*|\
10 *nn
*|
*oo
*|
*pp
*|
*qq
*|
*rr
*|
*ss
*|
*tt
*|
*uu
*|
*vv
*|
*ww
*|
*xx
*|
*yy
*|
*zz
*)
23 patt1
+="|*$l1$l2*$l1$l2*"
31 eval 'case $word in '"${patt1##?}"') ;; *) continue ;; esac'
32 eval 'case $word in '"${patt2##?}"') ;; *) continue ;; esac'