 The following redefinition of EMIT @-@ Q uses the words [ ( left @-@ bracket ) , ] ( right @-@ bracket ) , CHAR and LITERAL to temporarily switch to interpreter state , calculate the ASCII value of the Q character , return to compilation state and append the calculated value to the current colon definition : 
