Question: Regrouper suite de résultat en une seule liste

Bonjour,
Un connaisseur pourrait-il m'aider s'il vous plaît afin de résoudre un petit problème sur Maple.
J'ai un algorithme qui me renvoie les résultats successifs des nombres utilisés pour faire une multiplication égyptienne.
Sauf que les résultats sont renvoyés sur des lignes différentes avec plusieurs références d'une liste que j'ai nommé "L".

Les résultats sont renvoyés donc ainsi :

L:= [21 , 54 , 47]
L:= [20, 41 , 87]
L:= [2, 8, 12]
L:= [3, 7 , 5]

Comment faire pour que les résultats soient regroupés dans une même liste, c'est à dire :

L:= [21 , 54 , 47, 20, 41 , 87, 2, 8, 12, 3, 7 , 5 ]

Voici l'algorithme :

x := 12:
y := 46:
s := 0;
'x' = x:
'y' = y:
'`résultat`' = s:
while 0 < y do
if type(y, odd) then s := s + x:
y := y - 1:
else x := 2*x:
y := y/2:
end if;
L := [x, y, s];
end do;


I have this results in Maple :
L:= [21 , 54 , 47]
L:= [20, 41 , 87]
L:= [2, 8, 12]
L:= [3, 7 , 5]

How do for have just one list that :

L:= [21 , 54 , 47, 20, 41 , 87, 2, 8, 12, 3, 7 , 5 ]