#!/usr/bin/perl -l
# Given command-line args like:
#	4 2,5-9,11 2-5
# this program will produce:
#	4 2 5 6 7 8 9 11 2 3 4 5
#
($_='('.join(",",@ARGV).')')=~s/-/../g;s/.*/"print join(' ',$&)"/ee;
#
# Converting this into just one /eee substitute is left as an
# exercise for Randal. :-)
#
# BUG: this script doesn't work if an arg ends with ','.  [jc]
# -- 
#     Tom Christiansen      tchrist@convex.com      convex!tchrist