anchor.diff:  	seconds (fix (rem (* time 24 60 60) 60))
   	milliseconds (fix (rem (* time 24 60 60 1000) 1000))
   	)
  -
  +  
     (strcat (if (> days 0) (strcat (rtos days) ".") "")
   	  (prof:str-pad-left (rtos hours) 2 "0")
   	  ":"
  
positive.code:       (if path
  	(progn
  	  (setq func-sym (read (getstring nil "function name (empty for load exec): ")))
  	  
  	  (setq args (strcat "profile --sane -f " (prof:file-path path)))
  	  (if func-sym
  
negative.code:     )
    )
  
  (defun prof:prof (path func-sym / path-prof path-trac args err)
    (setq path-prof (strcat path ".prof.lsp")
  	path-trac (strcat path ".traces.txt")
  	)
  