[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