#!/bin/sh


cat "$1" | sed 's/^comments/previous-comments/g' | sed 's/^diaries/previous-diaries/g' | sed 's/^stories/previous-stories/g' | grep -v "|context>" > previous-stats.sw

# we should be able to do this in sw:
# hrmm... really need move op, not map op.
# hrmm... doesn't work! context is different
#
# load previous-month.sw
# map[comments,previous-comments] rel-kets[comments] |>
# map[diaries,previous-diaries] rel-kets[diaries] |>
# map[stories,previous-stories] rel-kets[stories] |>
# load this-month.sw
# save this-month-results.sw