fun titel () = 
(map (fn (line:string) => (output (std_out,line); output (std_out,"\n")))
[
"",
"",
"    M       M      GGGGGG          L                 A          BBBBBB",
"    MM     MM     G                L                A A         B     B",
"    M M   M M    G                 L               A   A        B     B",
"    M  M M  M    G     GGG  ====   L              AAAAAAA       BBBBBBB",
"    M   M   M    G       G         L             A       A      B      B",
"    M       M     G      G         L            A         A     B      B",
"    M       M      GGGGGG          LLLLLLLL    A           A    BBBBBBB",
"",
"",
"                           MORPHOGRAMMATIK LABOR",
"",
"            Implementierung von Kenogrammatik und Morphogrammatik",
"",
"",
"",
"",
"",
"                           (c) Thomas Mahler",
"                                Juni 1993",
""]; ());