Refal program to operate strings