-module(a).
-export([m/0]).
m()->f(io:get_line('')).
f(S)->L={lists,sort},T=io:get_line(''),T<z orelse(L(S)/=L(T)orelse io:fwrite(T)<0)<f(S).