(NOT,0,1,>,NOT) ; Take 1s complement, move fr left to right.
(NOT,1,0,>,NOT)
(NOT, , ,<,ADD1) ; ADD1 to get ** 2s complement**
(ADD1,1,0,<,ADD1) 
(ADD1,0,1,>,MR)
(ADD1, ,1,>,MR)
(MR,0,0,>,MR) ; MR move machine to far right
(MR,1,1,>,MR)
(MR, , , ,HALT) 
