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

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

function S0(p)
{ 
  S1((p "ch")); 
  S1((p "d"));  
  S1((p "of"));     
  S1((p "ok")); 
  S1((p "op"));     
  S1((p "ot")); 
  S1((p "qof"));    
  S1((p "qok"));
  S1((p "qop"));    
  S1((p "qot"));
  S1((p "s"));      
  S1((p "sh"));     
}

function S1(p)
{
  SF((p "an"));  
  SF((p "ain"));  
  SF((p "aiin"));  
  SF((p "aiiin"));
  SF((p "ar"));  
  SF((p "air"));  
  SF((p "aiir"));  
  SF((p "aiiir"));
  SF((p "al"));  
  SF((p "ail"));  
  SF((p "aiil"));  
  SF((p "aiiil"));
  SF((p "or"));  
  SF((p "ol"));   
  SF((p "ey"));  
  SF((p "eey"));  
  SF((p "eeey"));  
  SF((p "edy")); 
  SF((p "eedy")); 
  SF((p "eeedy")); 
}

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