#! /usr/bin/gawk -f
# Last edited on 2001-01-16 19:32:26 by stolfi

BEGIN {
 # Generates the words described by Mike Roe's paradigm
 S0("");
}

function S0(p)
{ 
  S1((p "o"));
  S1((p "qo"));
  S1((p "cho"));
}

function S1(p)
{
  S2((p "t"));
  S2((p "k"));
}

function S2(p)
{
  S3(p);
  S5(p);
  S7(p);
}

function S3(p)
{
  S4((p "o"));
  S4((p "cho"));
}

function S4(p)
{
  SF((p "r"));
  SF((p "l"));
}

function S5(p)
{
  S6((p "e"));
  S6((p "ee"));
  S6((p "ch"));
  S6((p "sh"));
  S6((p "che"));
}

function S6(p)
{
  SF((p "y"));
}

function S7(p)
{
  SF((p "al"));
  SF((p "am"));
  SF((p "aiin"));
  SF((p "ain"));
}

function SF(p)
{
  printf "%s\n", p;
}