#!/usr/bin/env sh
# -*- mode: scheme; -*-
IFS=" "
exec scsh -s "$0" "$@"
!#

(run (emacs --quick --batch --visit ~/documents/gtd/inbox.org
            --eval "(princ (how-many (rx bol \"*\" (one-or-more space))))"))