main test.potoo
1(
2
3( $ x $ y x y ) $ swap
4
5( uncons swap , , ) ! quoted_symbol 1 2 3
6
7)