(let('(rec,s(let('(#/./s))#`",'`after,'0"))`print)(do((\ 48(-\ 1))(x #0='(read-line)'y)(y #0#'z)(z #0#'x))((=\ 0))`y`z`x`""))