#!/bin/sh

#TODO error message if has arguments

perl -ne 'print tr/\t/\t/+1+($ARGV[0]||0),"$c\t$_"'