#!/usr/local/plan9/bin/rc
# see also Slide-
. /usr/local/plan9/bin/9.rc

cur = `{basename  $%}
next = `{sed -n '/^' ^ $cur ^ '([ 	]|$)/{; n; p; q; }' index}
if(~ $#next 0){
	echo 'no next page' >[1=2]
	exit 'no next page'
}
Slide $next