#!/bin/sh
IFS=" "
exec /afs/wsi/ppc_macx54/bin/scsh -s "$0" "$@"
!#

(let ((reader (infix-splitter (string (ascii->char 9))))
      (port (open-input-file "flug.tsv")))
  (let lp ((line (read-line port)))
    (if (eof-object? line)
	(close-input-port port)
	(begin 
	  (display (reader line))
	  (lp (read-line port))))))