(use text.tr)(while(print(string->number(string-tr(read-line)"5-8""4-7")8)))