diff --git a/emacs.el b/emacs.el
index 7a5e091..a6b533f 100644
--- a/emacs.el
+++ b/emacs.el
@@ -2422,6 +2422,10 @@ result for that word.")
                   (shell-command-to-string
                    (format "sdcv -n -u jmdict-en-ja '%s'"
                            word))))
+        ("alc" . (lambda (word)
+                   (shell-command-to-string
+                    (format "alc '%s' | head -n 20"
+                            word))))
         ))
 
 (setq ilookup-default "ja")