sub write_monk_tags {
  use warnings;
  use 5.011;
  use Text::Template 'fill_in_string';

  my $rvars = shift;
  my %vars  = %$rvars;
  
  # User: change these quoted values for different order or tags
  my @buchstaben = qw/i p c pre readmore b/;
  for my $i (@buchstaben) {
    $vars{"symbol"} = $i;
    print "How many $i tag pairs would you like?: ";
    my $prompt = <STDIN>;
    chomp $prompt;
    while ( $prompt gt 0 ) {
	my Q::symbol = $i;
      my $result = fill_in_string(<<'EOM', PACKAGE => Q);
<{$symbol}></{$symbol}>
EOM;
      $return = $return . $result;
      --$prompt;
    }
  
  return $return;
}