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