anchor.diff:  	(a a a a)
   ))
   
  -;(setq x (f_matpow z 2))
  -
  -(setf a 1)
  -(setf b 2)
  -(setf c 3)
  -(setf d 4)
  -
   ;(trace mr_get_i_vec)
   ;(trace mr_get_i_mat)
   ;(trace m_get_i)
  
positive.code: ;(trace mr_eval_vec)
  ;(trace mr_matmul)
  ;(trace mr_eval_mat)
  
  
  (setq x (mr_matmul z zt))
  
  (write (mr_eval_mat x))
negative.code: 	)
  )
  
  ; Potęgowanie macierzy
  (defmacro mr_matpow (M k)
  	`(if `,(= ,k 0)
  		(m_get_i ,M)
  		(let ((tmp (mr_matpow ,M ,(1- k)))) 
  			(mr_matmul tmp ,M)
  		)
  	)
  )
  
  ; Ewaluacja wektora
  (defmacro mr_eval_vec (v)
  	`(if (null `,(first ,v))
  