: print_say
	dup
	"[OOC] " me @ name strcat
	" says, " strcat
	"\"" strcat swap strcat
	"\"" strcat
	dup .tell .otell
;

: print_pose
		1 strcut swap pop
		striplead
		dup "'s " instr 1 = if
	    	me @ name dup strlen 1 - strcut swap pop
	    	"s" strcmp 0 = if 2 strcut swap pop "'" swap strcat then
		else
			" " swap strcat (if there isn't any 's, space the pose)
		then
		"[OOC] " me @ name strcat swap strcat dup .tell .otell
 ;

: main
	dup
	":" instr 1 = 
	if 
		print_pose
	else 
		print_say
	then
;