Scanf.scanf"%s@
%s@0"(fun s t->print_string(s^"
"^t^"
"^[|s;"B D C A E";"E D C B A"|].(-Obj.magic(@)mod 3)))