05AB1E, 4 3 2 bytes (non-competing)
Crossed out 4 is still regular 4 ;(
Thanks to @Adnan for a byte.
žt
žt
Uses CP-1252 encoding.
Explanation:
žt - Push input. Pop a, push e to a places (up to 10000).
Update:
Remove I
, as žt
takes input anyway if none is on the stack.