print $zeile . ": \n" . " type: n ";