let p=pos_out stdout let o=p+p+p let s=o+o+p let d=s+s+s+s let y=d+d+d+d+d+p+p let l=y+o let b=l+o let u=b+s let t=u+p let dd=t+d let e=dd+d let s=e+s+o+p let p=s+p let d=y+d+s let o=output_byte stdout let o p d=o p=o d let _=o p s=o t b=o y l=o d p=o e l=o b b=o u dd
Note that non-ascii characters in the above source code will be escaped (such as \x9f).