# reitRaper -- momo quant analysis
# $Id: reitRaper,v 1.1 2009/03/08 04:19:33 kumar Exp $
# $Source: /home/gs/src/RCS/reitRaper,v $
let shares = ref 1000
let counter = ref 1 in
do_while (buyIYR (shares*counter) -> incr counter; Printf.printf "Stocktwits killed: %d\n" !counter)
(buyIYR (shares*counter) -> !counter mod 100 <> 0)
