(defun x (start-date)
  (interactive "s Start Data (17oct05): ")
  (if (string= start-date "") (setq ok "ok") (setq ok "fuck"))
)