@prog simple-pmatch.muf
1 999 d
1 i
: stripleading begin dup " " 1 strncmp not while 1 strcut swap pop loop ;
: striptrailing
	dup strlen
	begin dup 0 > while
		1 - swap over strcut dup " " strcmp if strcat swap break then
		pop swap
	loop pop
;
: stripspaces stripleading striptrailing ;
: main
	stripspaces
	"*" swap strcat match
;
.
c
q