#!/usr/bin/perl

use Set::IntSpan;


while( <DATA> )
	{
	chomp;
	my $set = Set::IntSpan->new(
		join ",",
		sort { $a <=> $b }
		split /,/, $_
		);
		
	print "$_  --->  @{ [ $set->elements] }\n";
	}
	
__END__
80
17-199
18,512,21,78
18,5,1790,19-66,212,213