by@kcz146
WA
1598ms
%%!
f(S,I)->
case string:chr(io:get_line(""),$K) of
0->io:format(S),io:nl(),f(S,I);
J->io:format(string:copies(" ",J-1)++string:copies("*",2+I-J))
end.
main(_) ->
S=io:get_line(""),
io:format(S),io:nl(),
I=string:chr(S,$T)-1,
f(S,I). T
K
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
T
*********************