1line input""a$
?right$(a$,1);
right$(a$,1)=a$
?mid$(a$,2)
if""<a$goto 1