#!/bin/rc

awk -v 'nf='^$1 'BEGIN{n=1;} 
{
	gsub(/\(/,//,$nf);
	gsub(/\)/,//,$nf);
	last=now;
	now=$nf
	if ( last < now && last > 0 ) {
		printf("%d\n",now-last);
	}
}'