{ package RecMy ;

  use strict ;

sub rec {
  my $n = shift ;
  return if !$n ;
  
  rec( --$n ) ;

  my $local = "[$n] set" if ($n/3) !~ /\./ ;
 
  $local .= ' append' ;
  
  print "<$n> $local\n" ;

}

  for(1..5) {
    print "--------------------- $_\n" ;
    rec(4);  
  }
}