sub sms_2x2_PDL ( $m ) {
    $m-> slice( '0:-2', '0:-2' ) +
    $m-> slice( '1:-1', '0:-2' ) +
    $m-> slice( '0:-2', '1:-1' ) +
    $m-> slice( '1:-1', '1:-1' )
}