use warnings;
use strict;
use List::MoreUtils 'minmax';
use Devel::Peek;
for (1..1000) {
	my $in = rand();
	Dump(sprintf("%.4g",$in));
	my ($min,$max) = minmax(sprintf("%.4g",$in));
	last unless defined $max;
}