array-forth-mode for emacs-live pack system