(defun argtest(imatge xc yc &rest l)
  (setq size (length l))

  (cond 
    ( (eql size 0) (print "drei"))
    ( (eql size 3) (print "sechs"))
    ( (eql size 6) (print "neun"))
    ( (eql size 7) (print "zehn"))
    ( T (print "function syntax: a b c d") (return ) )
  )
)