(while(let('(#/([-A-Z]+)(.+)./#`",(read-from-string #`\"#[,(read)]\")"))(print'2'1)))