USING: literals math ; IN: foo CONSTANT: THIRTY-TWO 32 : add-32 ( x -- n ) $[ THIRTY-TWO ] + ;