#!/usr/local/bin/gawk -f
# ememo2outline.awk :Change EmemoPad format data to outline-mode format 
# Rev. 020528
BEGIN{
    flag = 0
	print ";;; -*- outline -*-"
	}

/^::Page::$/ { 
    getline
	Level = $1 + 1
	getline
	Title = $0
	print rep(Level,"*") " " $0
	next
	}

/^begin{{$/ { flag = 1;next}
/^}}end$/ { flag = 0;next}
flag == 1 { print $0 }

function rep(n,s,  t){
    while (n-- > 0)
	t = t s
	    return t
	    }