source: src/compdic/lst2fstext @ acbabee

#!/usr/bin/env perl

use locale;

$s=1;

$f=1;
while(<>)
{
    chomp;
    next if / /;
    @cs = split('');
    ++$s;
    print "0 $s <eps>\n";
    for $c (@cs)
    {
        print $s . ' ' . ++$s . " $c\n";
    } 
    print "$s $f <eps>\n";
}
print "$f\n";