V, 5 bytes (non-competing)
òÄ$xh
This language is newer than the challenge, making this answer non-competing. Explanation:
ò " Recursively:
Ä " Duplicate this line
$ " Move to the end of this line
x " Delete one character
h " Move one character to the right, which will throw an error when the line is one character long