sub f$(s$,a)a=len(s$)/2+.5
if a<>1s$=f$(left$(s$,a))+f$(mid$(s$,a+1))
return"{"+s$+"}"end sub
line input""s$
?f$(s$)