# 40Bいろいろ
#
# 提出したもの
# a=c=1,1,1,2;100.times{a<<p(c)+2*c=a[-4]}
#
# 初期値をずらした
# c=0;a=[1]*4;100.times{a<<c+2*p(c=a[-4])}
#
# evalでループ
# a=c=1,1,1,2;eval'a<<p(c)+2*c=a[-4];'*100
# c=0;a=[1]*4;eval'a<<c+2*p(c=a[-4]);'*100
#
# evalだとこんなのもOK
# eval'a,b,c,d=b,c,d,a ?d-c+b+p(a):1;'*104
eval'a,b,c,d=b,c,d,a ?d-c+b+p(a):1;'*104
IyA0MELjgYTjgo3jgYTjgo0KIwojIOaPkOWHuuOBl+OBn+OCguOBrgojIGE9Yz0xLDEsMSwyOzEwMC50aW1lc3thPDxwKGMpKzIqYz1hWy00XX0KIwojIOWIneacn+WApOOCkuOBmuOCieOBl+OBnwojIGM9MDthPVsxXSo0OzEwMC50aW1lc3thPDxjKzIqcChjPWFbLTRdKX0KIwojIGV2YWzjgafjg6vjg7zjg5cKIyBhPWM9MSwxLDEsMjtldmFsJ2E8PHAoYykrMipjPWFbLTRdOycqMTAwCiMgYz0wO2E9WzFdKjQ7ZXZhbCdhPDxjKzIqcChjPWFbLTRdKTsnKjEwMAojCiMgZXZhbOOBoOOBqOOBk+OCk+OBquOBruOCgk9LCiMgZXZhbCdhLGIsYyxkPWIsYyxkLGEgP2QtYytiK3AoYSk6MTsnKjEwNApldmFsJ2EsYixjLGQ9YixjLGQsYSA/ZC1jK2IrcChhKToxOycqMTA0