1
# morphological combination rules for all non-empty palindromes over {"a","b"}
3
initial <>, rules left_rule, mid_rule;
5
combi_rule left_rule ($list, $element):
7
result $list + <$element>, rules left_rule, mid_rule, right_rule;
10
combi_rule mid_rule ($list, $element):
12
result $list, rules right_rule;
18
combi_rule right_rule ($list, $element):
19
? $list.(-1) = $element;
21
result $list, rules right_rule, finish;
27
end_rule finish ($list):
32
# end of file =================================================================