$goal="Q";
$pipe[0]="-";
$pipe[1]="|";
#route=1;
#hier=0;
#houkou=0;

	gofiletop;
	while( 1==1 ) {
		if( #houkou==0 || #houkou==1 ) {
			call rightdown #houkou;
			#ret=##return;
			if( #ret==1 ) {
				#rd[#hier]=#houkou;
				#pnt[#hier]=#pnt[#hier]+1;
				#hier=#hier+1;
				#houkou=0;
				continue;
			}
			#houkou=#houkou+1;
		} else {
			if( char(code)!=$goal ) {
				#route = #route+#pnt[#hier]-1;
			}
			#pnt[#hier]=0;
			#hier=#hier-1;
			#houkou=#rd[#hier]+1;
			if( #hier==-1 ) break;
			call gowhere #rd[#hier]+2;
			call gowhere #rd[#hier]+2;
			continue;
		}
	}
	message( str(#route) );
	endmacro;

rightdown:
	call gowhere ##1;
	if( char(code)==$pipe[##1] ) {
		call gowhere ##1;
		return 1;
	}
	call gowhere ##1+2;
	return 0;

gowhere:
	if( ##1==0 ) right;
	if( ##1==1 ) down;
	if( ##1==2 ) left;
	if( ##1==3 ) up;
	return;