on init
  declare @s := "foo" & " bar"
  message(@s)

  message("4 + 3 is " & 4 + 3)
  message("10 mod 8 -> " & 10 mod 8)

  message("Relation 3 < 4 -> " & 3 < 4)
  message("Relation 3 > 4 -> " & 3 > 4)
  message("Relation 3 <= 4 -> " & 3 <= 4)
  message("Relation 3 >= 4 -> " & 3 >= 4)
  message("Relation 3 # 4 -> " & 3 # 4)
  message("Relation 3 = 4 -> " & 3 = 4)
  
  message("Logical operation 1 and 2 = " & 1 and 2)
  message("Logical operation 1 and 3 = " & 1 and 3)
  message("Logical operation 1 and 0 = " & 1 and 0)
  message("Logical operation 1 or 2 = " & 1 or 2)
  message("Logical operation 1 or 1 = " & 1 or 1)
  message("Logical operation 1 or 0 = " & 1 or 0)
  message("Logical operation 0 or 0 = " & 0 or 0)

  message("Logical operation not 1 = " & not 1)
  message("Logical operation not 2 = " & not 2)
  message("Logical operation not 0 = " & not 0)
  
  message("Bitwise operation 1 .and. 2 = " & 1 .and. 2)
  message("Bitwise operation 1 .and. 3 = " & 1 .and. 3)
  message("Bitwise operation 1 .and. 0 = " & 1 .and. 0)
  message("Bitwise operation 1 .or. 2 = " & 1 .or. 2)
  message("Bitwise operation 1 .or. 1 = " & 1 .or. 1)
  message("Bitwise operation 1 .or. 0 = " & 1 .or. 0)
  message("Bitwise operation 0 .or. 0 = " & 0 .or. 0)

  message("Bitwise operation .not. 1 = " & .not. 1)
  message("Bitwise operation .not. 2 = " & .not. 2)
  message("Bitwise operation .not. 0 = " & .not. 0)
  message("Bitwise operation .not. -1 = " & .not. -1)

  message("abs(-3) = " & abs(-3))

  message("random(-5,5) = " & random(-5,5))
  message("random(-5,5) = " & random(-5,5))
  message("random(-5,5) = " & random(-5,5))

end on