(do('(^r(- r(read-byte))))(#f)(print''''''''''487)(flush))