define l
while(set l:readline){
define c:l::slice 1 2
if(eq $c(l::slice 2 3)){
echo $c
} else {
echo (l::slice 4 5)
}
}