#!/bin/sh
# $Id: pblocks,v 1.6 1991/12/17 00:51:26 schwartz Exp schwartz $

usage='usage: pblocks [S=sig] [K=num] seq1 seq2 ...'
case $# in
0) echo $usage 2>&1; exit 1;;
esac

TMP=t.$$
S=''
K=30

for s
do
  case $s in
  S=*) S=$s; shift;;
  K=*) K=`expr $s : '.*=\(.*\)'`; shift;;
  *) break;;
  esac
done

first=$1; shift; prev=$first;
n=1
for s
do
  sim $K $prev $s | pstrip $S >$TMP.$n
  prev=$s
  n=`expr $n + 1`
done
sim $K $prev $first | pstrip $S >$TMP.$n

pab $TMP.*
rm $TMP.*