#!/bin/ksh

AllCols=`head -1 $InFile|wc -w`                 # Count all the columns to control the loop

CurCol=5                                        # Set first intersting column
while [ $CurCol -le $AllCols ]                  # Start loop 
do
   OutFile=`head -1 $InFile | \
               cut -f$CurCol -d "tab"`.wig      # Get output filename

   cut -f-4,$CurCol -d "tab" $InFile > $OutFile # Generate output file
   ((CurCol=$CurCol+1))                         # Move counter to next column
done