let g a b=[|a;"C"|].(b)^a^"++"^a^"--"^a^"#"^a^"omega"let f a="A"^a^"FF
A"^a^"FFX
A"^a^"FFY
A"^a^"FFZ
"let(%)a b=g(a^"C")b^g(a^"D")0;;print_string[|"
"%1^"
Objective-"%0^"
Aspect"%0^"
Concept"%0;f""^f"ABC"^f"DEF"^f"B"^f"BABC"^f"BDEF";"AABC
ADEF
BABC
BDEF
CABC
CDEF"|].(input_byte stdin/41)