新しいツールNew tools

• 「Aを実行する、ただし結果の値を変換する」ツールはこうなる

  Or "do what A does, but transform its result value somehow":

 sub transform {
 my ($A, $transform) = @_;
 my $parser = sub { 
 my $in = shift;
 my ($res, $out) = $A->($in)
 or return;
 return ($transform->($res), $out); 
 };
 }