(set! *"
")(print((rec(h n f t v)(when(>(dec! n)-1)(h n f v t)(write f)(set! * #`",*,t")(h n v t f))*)(read)'A'C'B))