read A D&&eval B={s,t,p,o}'
C=${A/$B*}$B
D[${#C}<${#D}]=$C
ech$B $D
' . *