my %code_cache;
while (<>) {
   my $code=$code_cache{$_};
   unless ($code) {
      my @actions=parse_to_actions($_);
      $code=eval "sub { @actions }" 
               or die "$@ while evaling actions @actions ";  
      $code_cache{$_}=$code;
   }
   $code->();
}