diff --git a/inst/prelude.pl b/inst/prelude.pl
index 2bb0b39..afdf306 100644
--- a/inst/prelude.pl
+++ b/inst/prelude.pl
@@ -57,10 +57,15 @@ lcm(X,Y,R) :- gcd(X,Y,GCD), R is X*(Y/GCD).
 
 :- op(1200, xfx, -->).
 
-say([], SameState, SameState) :- !.
-say(Tokens, ParsedList, Rest) :-
+sequence([], SameState, SameState) :- !.
+sequence(Tokens, ParsedList, Rest) :-
   append(Tokens, Rest, ParsedList).
 
+load_expansion((X, L) --> Y, Xp :- (Yp, Lp)) :- !,
+  expand_phrasecall(X, Xp, S0, S),
+  expand_phrase(Y, Yp, S0, S),
+  expand_phrase(L, Lp, S, _).
+
 load_expansion(X --> Y, Xp :- Yp) :- !,
   expand_phrasecall(X, Xp, S0, S),
   expand_phrase(Y, Yp, S0, S).
@@ -71,7 +76,7 @@ expand_phrase((A, B), (Ap, Bp), S0, S) :- !,
 expand_phrase((A; B), (Ap; Bp), S0, S) :- !,
   expand_phrase(A, Ap, S0, S),
   expand_phrase(B, Bp, S0, S).
-expand_phrase(L, say(L, S0, S), S0, S) :- list(L), !.
+expand_phrase(L, sequence(L, S0, S), S0, S) :- list(L), !.
 expand_phrase({X}, X, S, S) :- !.
 expand_phrase(!, !, S, S) :- !.
 expand_phrase(X, Xp, S0, S) :- expand_phrasecall(X, Xp, S0, S).