: square ( x -- x^2 ) dup * ;