mathematica: Add another example