define a:readline
if(eq ($a::slice 1 2) ($a::slice 2 3)){
echo:$a::slice 2 3
}else:echo:$a::slice 4 5
source $0