#----------------------------------------------------------------------------
# Common Tcl-command procedures for DMC
# Mark Koennecke February 1997
#--------------------------------------------------------------------------
proc Milch { n } {
   for {set i 0 } { $i < $n } { incr i} {
      ClientPut "Milch ist gesund"
   }
}

proc Kaba { text } {
  return $text
}