type 
        up =set of ‘A’..’Z’;
        low=set of ‘a’..’z’;
        
      const
        upcase:up=[’A’..’Z’] ;
        voc:low[’a’,’e’,’i’,’o’,’u’,’y’] ;
        delimeter: set of char=[’ ‘..’/’,’:’..’?’];