language grl 0.1
module W2ExpressionDiagnostics
  const speed v_ok = linear(100 mm/s)
  const speed v_unknown_symbol = linear(missing_symbol mm/s)
  const speed v_unknown_function = linear(no_such_function(1) mm/s)
  const speed v_bad_arity = linear(atan2(1) mm/s)
  const speed v_domain = linear(sqrt(-1) mm/s)
  const speed v_div_zero = linear(100 mm/s / 0)
  const zone z_unit = z(10 mm + 1 s)
  target home = joint_target { joints: [0 deg, 0 deg, 0 deg, 0 deg, 0 deg, 0 deg] }
  proc main()
    movej home speed v_ok zone fine
  end
end
