#!/usr/bin/env perl

use strict;
use warnings;
use open OUT => qw{:encoding(UTF-8) :std};

use lib '.'; # DEMO ONLY -- DON'T use in PRODUCTION!
use PolyUniCharClass2;

for my $prefix (qw{In Is If}) {
    for my $class (qw{H L M}) {
        my $cons = "${prefix}Thai${class}Cons";
        print "$cons:\n";
        print @{PolyUniCharClass2::list($cons)}, "\n";
    }
}