import strutils
 
proc elem(count:int, ch: char): string =
    if count>2: $ch else: $count&ch
 
iterator items(limit: int): string =
    var number="0"
    for n in 1..limit:
        yield number
        var count=0
        var next=""
        for i in 0..<number.len:
            if i==0 or number[i-1]==number[i]:
                count+=1
            else:
                next&=elem(count,number[i-1])
                count=1
        next&=elem(count,number[number.high])
        number=next
 
for s in stdin.readLine.parseInt: echo s

aW1wb3J0IHN0cnV0aWxzCgpwcm9jIGVsZW0oY291bnQ6aW50LCBjaDogY2hhcik6IHN0cmluZyA9CiAgICBpZiBjb3VudD4yOiAkY2ggZWxzZTogJGNvdW50JmNoCgppdGVyYXRvciBpdGVtcyhsaW1pdDogaW50KTogc3RyaW5nID0KICAgIHZhciBudW1iZXI9IjAiCiAgICBmb3IgbiBpbiAxLi5saW1pdDoKICAgICAgICB5aWVsZCBudW1iZXIKICAgICAgICB2YXIgY291bnQ9MAogICAgICAgIHZhciBuZXh0PSIiCiAgICAgICAgZm9yIGkgaW4gMC4uPG51bWJlci5sZW46CiAgICAgICAgICAgIGlmIGk9PTAgb3IgbnVtYmVyW2ktMV09PW51bWJlcltpXToKICAgICAgICAgICAgICAgIGNvdW50Kz0xCiAgICAgICAgICAgIGVsc2U6CiAgICAgICAgICAgICAgICBuZXh0Jj1lbGVtKGNvdW50LG51bWJlcltpLTFdKQogICAgICAgICAgICAgICAgY291bnQ9MQogICAgICAgIG5leHQmPWVsZW0oY291bnQsbnVtYmVyW251bWJlci5oaWdoXSkKICAgICAgICBudW1iZXI9bmV4dAoKZm9yIHMgaW4gc3RkaW4ucmVhZExpbmUucGFyc2VJbnQ6IGVjaG8gcw==

MTU=

15