(if name
       (concat "*Ucapan Teman untuk" (capitalize name) "*")
         "*Ucapan Teman untuk*")))   (erase-buffer)   ;; Display the empty buffer.   (sit-for 0)    ;;;

(let* (buf (get-buffer-create "playnoise"))
    (start-process-shell-command
     "play" buf (concat (format "afplay /home/azzamsa/.emacs.d/elisp/ucapan_tema " ulangtahun_cut) ".wav"))))