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

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

function S0(p)
{ 
  S1((p "s"));
  S1((p "qo"));
  S1((p "qok"));
  S1((p "qot"));
  S1((p "d"));
  S1((p "yk"));
  S1((p "yt"));
  S1((p "k"));
  S1((p "o"));
  S1((p "ok"));
  S1((p "ot"));
  S1((p "t"));
  S1((p "cth"));
  S1((p "ch"));
  S1((p "chk"));
  S1((p "cht"));
  S1((p "chcth"));
  S1((p "chcph"));
  S1((p "chckh"));
  S1((p "cph"));
  S1((p "ckh"));
  S1((p "sh"));
  S1((p "sho"));
  S1((p ""));
}

function S1(p)
{
  SF((p "dy"));
  SF((p "dal"));
  SF((p "daiin"));
  SF((p "al"));
  SF((p "am"));
  SF((p "aiin"));
  SF((p "ain"));
  SF((p "ar"));
  SF((p "ey"));
  SF((p "eey"));
  SF((p "eol"));
  SF((p "ol"));
  SF((p "oiin"));
  SF((p "or"));
  SF((p "chy"));
  SF((p "chey"));
  SF((p "cho"));
  SF((p "chol"));
  SF((p "chor"));
  SF((p "shy"));
  SF((p "y"));
}

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