alias tex {
  %i = $1-
  %i = $replacecs(%i,!=,≠,\neq,≠,\infty,∞,\int,∫,!\in,∉,\in,∈,fa.,∀,\forall,∀,\exists,∃,\or,∨,\and,∧,\cap,∩,\cup,∪,!\subset,⊄,\subset,⊂,|r,ℝ,|n,ℕ,|z,ℤ,|c,ℂ,|q,ℚ,infin.,∞, $&
    \lambda,λ,\sum,∑,\alpha,α,\beta,β,\gamma,γ,\delta,δ,\epsilon,ε,\omega,ω,\Omega,Ω,->,→,\rightarrow,→,<=>,⇔,\Cup,⋃,<=,≤,\leq,≤,>=,≥,\geq,≥,\mapsto,↦,\phi,φ,\pi,π,\partial,∂,\del,∂,\emptyset,∅ )
  %i = $replacecs(%i,\snowflake2,❆,\snowflake,❄,\snowman,☃,\heart,♥,\umbrella,☂,\note2,♫, $&
    \note,♪,\radioactive,☢,\biohazard,☣,\ankh,☥,\sowjet,☭,\peace,☮,\yinyang,☯,$+(\:,$chr(40)),☹,\recycle,♻,\wheelchair,♿,\checkmark,✔,\arrowright,➳,\not,¬)
  return %i
}


on *:input:*: {
  var %i = $1-, %x = 0, %p
  if $1 == \tex {
    haltdef
    msg $target $tex($2-)
  }
}