(while 1(do(some #(apply println(seq({\a"000"\b"001"\c"010"\d"100"\e"101"}%)))(nth'("aca""bad""dcb""eae""ece""eee")(-(read)1)))(prn)))