#!/usr/bin/perl
#
# usage: seqclip from to  (1 indexed)
#
die "usage: seqclip from to\n" if $#ARGV != 1;

$start = $ARGV[0] + 0;
$end = $ARGV[1] + 0;

undef $/;
$[ = 1;
$out = <STDIN>;
$out =~ s/\n//g;
$out = substr ($out, $start, $end - $start + 1);
print "$out\n";