data "a", "bb", "ccc", "ddd", "ee", "f", "ggg", "~"

do
    read test$
    if test$ = "~" then break : fi
    if len(test$) > len(test1$) then
        test1$ = test$
        test2$ = test1$ + chr$(10)
    elsif len(test$) = len(test1$) then
        test2$ = test2$ + test$ + chr$(10)
    end if
loop

print(test2$)
end