ORIGIN '~beta/basiclib/betaenv';
INCLUDE 'loops';
-- program: Descriptor --
(# 
do
   (3,8)->upTo (#  do index->putint; newline #);
   (6,2)->downTo (#  do index->putint; newline #);
   (1,3,8)->stepTo (#  do index->putint; newline #);
   (8,- 3,1)->stepTo (#  do index->putint; newline #)
#)