# TI-Basic, -2 bytes

    :Input N
    :".
    :While N23>length(Ans
    :Ans+".
    :End
    :Ans