【求助】本人编写的四行代码程序，无法满足要求，求高手帮忙改一下

ZZXXQQ

(defun c:df()
(initget 128 "F ")
(setq s0 (getkword "\n子程序df1 【子程序df2  (F)】:"))
(if (= s0 "F")
  (df2) ;转子程序df2
  (df1)  ;转子程序df1
)
(princ)
)

lht

((= s0 "F") (df2)) ;输入"F"执行子程序df2
((= s0 "nil") (df1))  ;右键执行子程序df1