#!/usr/bin/env perl

## Name........: generate-append-rules
## Author......: Royce Williams
## License.....: MIT

use strict;
use warnings;

# Generate append rules for an input wordlist.
# In the theme of tmesis.pl by atom

my $function = '$';

# Always use passthrough.
print ":\n";

while (my $word = <>) {

  chomp $word;

  my $word_len = length $word;

  my @word_buf = split '', $word;

  my @rule;

  foreach my $word_char (@word_buf) {
    my $function_full;
    $function_full = $function . $word_char . ' ';

    push @rule, $function_full;
  }

  print join (' ', @rule), "\n";

}