(mod (X)
(include *standard-cl-23*)
(defun asort ((@ firstpos (first @ secondpos (second @ thirdpos (third . remaining)))))
(if firstpos
(if secondpos
(if thirdpos
(if (> first second)
(if (> first third)
"test1"
(if (> second third)
"test2"
"test3"
)
)
(if (> first second)
"test4"
"test5"
)
)
(if (> first second)
"test6"
"test7"
)
)
firstpos
)
0
)
)
(asort X)
)