($A,$B,$C)=glob<>; ($s0,$t0)=glob<>; ($s1,$t1)=glob<>; if($s0 eq $s1){ ($t0,$t1)=($t1,$t0)if$t0>$t1; push@a,$t1-$t0; push@a,($t0-1)+1+($$_-1)+1+($$s0-$t1) for A..C; }else{ push@a,($t0-1)+1+($t1-1); push@a,($$s0-$t0)+1+($$s1-$t1); push@a,($t0-1)+1+($$_-1)+1+($$s1-$t1) for A..C; push@a,($$s0-$t0)+1+($$_-1)+1+($t1-1) for A..C; } printf sort{$a<=>$b}@a;