#!/usr/bin/perl
# Wrap at nth column.  Fmt can't handle long input lines.
# $Id: wrap,v 1.1 1991/07/08 07:34:51 schwartz Exp $
$cols = 70 if $#ARGV == 0;
while (read (STDIN, $line, $ARGV[0]) != 0) {
	chop ($line) if $line =~ /\n$/;
	print $line, "\n";
}