Select Code to Download

sub turn_tables {
    my ( $pdl, $dir ) = @_;     # dir = 0   => forward
...
        $s .= $t[ $_ - 1 ]-> ( $s )
    }
}