#!/bin/csh

set infile=$1

if ( $infile == "" ) set infile=rsl.error.0000
if ( ! -f $infile ) set infile=rsl.error.0000
grep '\*\*\* *[0-9]* *1 ' $infile | \
    awk '{if(prev!=0)print $5-prev;prev=$5}'