% featureset monophone
% work in progress changes from PKY to ubghuu, or at least proto-ubghuuic

CHANGE
META NAME "Initial Changes"
BEGIN
  /q/ -> /x/
  [+consonantal -glottal] -> [+front] | _[-consonantal +front,high]
  [-consonantal,low] => [+round] | if Syllable[0].nucleus.quality is [+round]
                    => [-round] | if Syllable[0].nucleus.quality is [-round +front]
                    => [-consonantal]
  [-consonantal,back +round,front] -> [+back,labial -front]
  [-consonantal,front,low,round +back] -> [+front -back,labial]
END

CHANGE
META NAME "ATR Transfer"
BEGIN
% alveolar -> retroflex
[+consonantal,coronal -front,sonorant] -> [+apical -coronal]
  | if Syllable[0].nucleus.quality is [-tense]
  | if Syllable[0].nucleus.quality is [+low]

{/n/, /r/, /l/}  -> {/ɳ/, /ɽ/, /ɭ/}
  | if Syllable[0].nucleus.quality is [-tense]
  | if Syllable[0].nucleus.quality is [+low]

% velar -> uvular
[+consonantal,dorsal -front] -> [+back]
  | if Syllable[0].nucleus.quality is [-tense]
  | if Syllable[0].nucleus.quality is [+low]
END

CHANGE
META NAME "ATR Loss"
BEGIN
  {/e/, /eː/} -> {/ɛ/, /ɛː/}
  {/ə/, /əː/} -> {/e/, /eː/} | in Syllable[0]
  {/ə/, /əː/} -> {/a/, /aː/}
  {/ɵ/, /ɵː/} -> {/o/, /oː/}
  {/ʌ/, /ʌː/} -> {/a/, /aː/}
  {/ɪ/, /ɪː/} -> {/e/, /iː/}
  {/ʊ/, /ʊː/} -> {/o/, /uː/}
END

CHANGE
META NAME "Syllable Loss"
BEGIN
  % delete the first short vowel in a word, but not if it produces
  % a three-consonant cluster
  DeleteFirst([-consonantal,long]) & if Phone[@2] is [-consonantal]
                                  & !if Phone[@-2] is [+consonantal]
END

% this stage is quite close to proto-ubghuuic