#!/usr/bin/perl -wn

BEGIN { die "usage: $0 columns\n" if @ARGV != 1 ; $n=0; $columns = shift; }

chomp;
print $_;
print ++$n % $columns == 0 ? "\n" : "\t";