-- | Force an IO action.
act :: Expression -> Expression
act e = Apply (Variable (Identifier "__"))
              [e]
act :: Expression -> Expression
act e = Apply (Variable (Identifier "__"))
              [e]
act e = Apply (Variable (Identifier "__"))
              [e]