Do you really want to send ariels a message saying you like their work?
: SQUARE ( x -- x-squared ) DUP * ;