(loop(format t"~@? "(cadr(member(subseq(set'l(read-line))1 4)(asdf::split"onn ~An rig ~Asagi onb ~Ani ayo sayonaraion aho ~*tanoshii~A hay ~Anagi tad itadakimausu tte ~Akanku ada ~Anbou och ~Ausu yas ~A ute ~*yukaina~A"):test'equal))l" nakamaga popopopo-n"))