%%!
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(""),
 I=string:chr(S,$T)-1,
 f(S,I).