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",
""]; ());