#!/usr/local/bin/clocc

(require 'slashcache)

(let ((count (unless (null *args*)
               (let ((arg (read-from-string (car *args*))))
                 (when (integerp arg)
                   arg)))))
  (if count
      (slashdot:list-stories count)
    (slashdot:list-stories)))