-- btBrick = NXTBrick Bluetooth "/dev/tty.NXT-DevB-1"
-- 
-- main = do
-- 	h <- nxtOpen btBrick
-- 	
-- 	reactimate (mkInit h) (mkSense h) (mkActuate h) nxtSF
-- 	
-- 	nxtClose h

main = testloop
main = testloop
main = testloop