(defun get-list-keys-by-put (list-keys-put / list-string result)
  (setq list-string (file_read_to_list list-keys-put))
  (foreach x list-string
    (setq result (append result (list (convert-string-to-list-be-delimiter x "\t"))))
    )
  result
  )

