Help for this page
use PDL; use PDL::Char; ... # Show diff print join(' ', $diff->list), "\n"; }
$PDL::SHARE = $PDL::SHARE; # keep stray warning quiet