my ($version,$solver) = @ARGV;
my %platforms = map {$_ => 1} @{$tosca{$version}};
my %platforms2 = map {$_ => 1} @{$solver{$solver}};
my @platforms = grep {$platforms2{$_}} keys %platforms;
print "@platforms\n";