## COMPLEX

default erase

# entry (1)
(1,2) ( 1,2) (1 ,2) (1, 2) (1,2 )
-> stack should be (1,2), (1,2), (1,2), (1,2), (1,2)
erase

# entry (2)
(1.3,2.444555
-> stack should be (1.3,2.444555)
erase

# entry (3)
(1,
-> stack should be (1,0)
erase

# entry (4)
(nan,+inf)
-> stack should be (nan,inf)
erase

# entry (5)
(0x1234,0x10.10)
-> stack should be (0x1.234p+12,0x1.01p+4)
drop

# entry (6)
(0b11,0b101)
-> stack should be (3,5)
erase

# add (1)
(1.2,2.3) (1,2) +
-> stack should be (2.2,4.3)
drop

# add (2)
(1.2,2.3) (1,2)+
-> stack should be (2.2,4.3)
drop

# add (3)
(1.2,2.3) 3+
-> stack should be (4.2,2.3)
drop

# add (4)
3 (1.2,2.3)+
-> stack should be (4.2,2.3)
drop

# sub (1)
(1.2,2.3) (2,2) - 
-> stack should be (-0.8,0.3)
drop

# sub (2)
(1.2,2.3) (1,2)- 
-> stack should be (0.2,0.3)
drop

# sub (3)
(1.2,2.3) 1- 
-> stack should be (0.2,2.3)
drop

# sub (4)
1 (1.2,2.3) -
-> stack should be (-0.2,2.3)
drop

# mul (1)
(1,2) (3,4) *
-> stack should be (-5,10)
drop

# mul (2)
(3,4) (1,2) *
-> stack should be (-5,10)
drop

# mul (3)
(3,4) 2 *
-> stack should be (6,8)
drop

# mul (3)
2 (3,4) *
-> stack should be (6,8)
drop

# div (1)
(1,2) (3,4) /
-> stack should be (0.44,0.08)
drop

# div (2)
(1,2) 2 /
-> stack should be (0.5,1)
drop

# div (3)
2 (3,4) /
-> stack should be (0.24,-0.32)
drop

# re (1)
(1.2,3.4) re
-> stack should be 1.2
drop

# re (2)
3 re
-> error should be 3
drop

# re (3)
re
-> error should be 2
drop

# im (1)
(1.2,3.4) im
-> stack should be 3.4
drop

# im (2)
3 re
-> error should be 3
drop

# im (3)
re
-> error should be 2
drop

# chs
(3.14,6.28) chs
-> stack should be (-3.14,-6.28)
drop

# neg
(-3.14,-6.28) neg
-> stack should be (3.14,6.28)
drop

# inv (1)
(2,4) inv
-> stack should be (0.1,-0.2)
drop

# inv (2)
(0.1,-0.2) inv
-> stack should be (2,4)
drop

# abs
(3,4) abs
-> stack should be 5
drop

# sign (1)
(1,0) sign
-> stack should be (1,0)
drop

# sign (2)
(0,1) sign
-> stack should be (0,1)
drop

# sign (3)
(3,-4) sign
-> stack should be (0.6,-0.8)
drop

# sq (1)
(12,10) sq
-> stack should be (44,240)
drop

# sqr (1)
(12,10) sq
-> stack should be (44,240)
drop

# arg (1)
(1,1) arg pi 4 / ==
-> stack should be 1
drop

# arg (2)
(-1,1) arg pi 3 * 4 / ==
-> stack should be 1
drop

# arg (3)
(1,-1) arg -45 d->r ==
-> stack should be 1
drop

# arg (4)
(-1,-1) arg pi -3 * 4 / ==
-> stack should be 1
drop

# arg (5)
(1,0) arg 0 ==
-> stack should be 1
drop

# arg (6)
(0,1) arg pi 2 / ==
-> stack should be 1
drop

# arg (7)
(-1,0) arg pi ==
-> stack should be 1
drop

# arg (8)
(0,-1) arg pi neg 2 / ==
-> stack should be 1
drop

# conj
(1,2) conj dup conj
-> stack should be (1,-2), (1,2)