my ($sx, $sy, $s1) = $red_in->slice('0:2')->mv(0,-1)->sumover->dog;