#!/bin/sh

#TODO error message if has arguments

perl -ne 'print tr/\t/\t/+1,"$c\t$_"'