#!/usr/bin/env perl

use locale;

$s=1;

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