INT x :
INT y :
SEQ
  INPUT ? x
  y := x * x
  OUTPUT ! y




;; This can be used for the above program in the R-LOOP
(setq bytes1 
 '(73 78 84 32 120 32 58 10 73 78 84 32 121 32 58 10 83 69 81 10 32 32 73
 78 80 85 84 32 63 32 120 10 32 32 121 32 58 61 32 120 32 42 32 120 10
 32 32 79 85 84 80 85 84 32 33 32 121 10))