diff --git a/thun/thun.pl b/thun/thun.pl
index 9d7bb81..a2ab4cb 100644
--- a/thun/thun.pl
+++ b/thun/thun.pl
@@ -211,6 +211,8 @@ jcmpl(Name, Expression, Rule) :-
 rule(Head, [],    Head                        ). 
 rule(Head, [A|B], Head :- maplist(call, [A|B])).
 
+sjc(Name, InputString) :- phrase(joy_parse(E), InputString), show_joy_compile(Name, E).
+
 
 % Simple DCGs to expand/contract definitions.