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: 	)
  )
  
  ; Ewaluacja wektora
  (defmacro mr_eval_vec (v)
  	`(if (null `,(first ,v))
  
negative.code: 	)
  )
  
  ; Transponowanie
  (defmacro m_trans (M)
  	`(loop for i from 1 to (length ,M) collect
  		(loop for j from 1 to (length ,M) collect 
  			(nth (1- i) (nth (1- j) ,M))
  		)
  	)
  )
  
  (defmacro m_matpow (M k)
  	`(mr_matpow (m_trans ,M) ,k)
  )
  
  (setq z '(
  	(a b a a)
  	(a a c a)
  