I wrote this line of code:

enumFromThen a b = a : enumFromThen b ((b AMult (ANum 2)) AMinus a)

Then I typed this into ghci:

map (fmtArith mempty) [ANum 2,ANum 4..]

Out spewed an infinite list of shell arithmetic expressions, written only in terms of the provided 2 and 4, which when evaluated by a shell, will yield the even numbers 2,4,8,...

Here's the expression that generates the number 22. They get a lot longer. The expression for 42 is 212 kilobytes long.

$(((((((((((((((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2)) * 2) - ((((4 * 2) - 2) * 2) - 4)) * 2) - ((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2))) * 2) - ((((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2)) * 2) - ((((4 * 2) - 2) * 2) - 4))) * 2) - ((((((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2)) * 2) - ((((4 * 2) - 2) * 2) - 4)) * 2) - ((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2)))) * 2) - ((((((((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2)) * 2) - ((((4 * 2) - 2) * 2) - 4)) * 2) - ((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2))) * 2) - ((((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2)) * 2) - ((((4 * 2) - 2) * 2) - 4)))) * 2) - ((((((((((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2)) * 2) - ((((4 * 2) - 2) * 2) - 4)) * 2) - ((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2))) * 2) - ((((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2)) * 2) - ((((4 * 2) - 2) * 2) - 4))) * 2) - ((((((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2)) * 2) - ((((4 * 2) - 2) * 2) - 4)) * 2) - ((((((4 * 2) - 2) * 2) - 4) * 2) - ((4 * 2) - 2))))))

Ever since I first fired it up and typed [1..] into it, I've always loved generating infinite values in ghci and watching it happily print them out as they stream into being, but this is my favorite one ever.