Unwrapped explode

examples/test.modal

@@ -1,5 +1,3 @@
-<> (?x dup) (?x ?x)
-<> (?x ?y swap) (?y ?x)
-<> ( ?x pop) ()
+<> ((explode ?*)) (?*)
 
-(1 2 3) (4 5 6) swap pop dup
+(explode hello)

src/modal.c

@@ -89,8 +89,12 @@ plode(char *s)
 			if(!depth) return s;
 		}
 	} else { /* explode */
-		while((c = *s++) && !spacer(c))
+		*outp_++ = *s++, *outp_++ = ' ';
+		while((c = *s++) && !spacer(c)) {
 			*outp_++ = '(', *outp_++ = c, depth++;
+			if(!spacer(*s))
+				*outp_++ = ' ';
+		}
 		for(i = 0; i < depth; i++)
 			*outp_++ = ')';
 	}