[PhonesSet ps]                      read ../step2/phonesSet
[Tags tags]                         read ../step2/tags

ps add nonphone     + _
ps add vowel        A E I O U
ps add consonant    B D F G H L M N R S Y
ps add sonorant     M N R Y L
ps add nonsonorant  B D F G H S
ps add labial       B M F
ps add nonlabial    D G H L N R S Y
ps add stop         B D G M N
ps add nonstop      F H L R S Y
ps add liquid       L R Y
ps add nonliquid    B D F G H M N S
ps:phones add pad

ps write phonesSet
 
QuestionSet qs ps:phones ps tags

qs add "0=WB"
qs add "0=WB +1=WB"
qs add "0=WB -1=WB"
qs add "0=WB -1=WB +1=WB"

foreach p [ps:] {
  qs add "+1=$p" ; qs add "+1=$p +1=WB"
  qs add "-1=$p" ; qs add "-1=$p -1=WB"
}

qs write questionSet

exit