#!/usr/bin/perl
use strict;
use warnings;
sub trim
{ my $s = $_[0]; $s =~ s/^\s+|\s+$//g; return $s };
sub func {
my @ingredients = @{$_[0]};
foreach my $ing (@ingredients) {
}
}
IyEvdXNyL2Jpbi9wZXJsCgogIHVzZSBzdHJpY3Q7CiAgdXNlIHdhcm5pbmdzOwoKICBzdWIgIHRyaW0geyBteSAkcyA9ICRfWzBdOyAkcyA9fiBzL15ccyt8XHMrJC8vZzsgcmV0dXJuICRzIH07CgogIG15IEB2YWx1ZXMgPSBtYXAgeyB0cmltKCRfKTsgfSBzcGxpdCgnLCcsICdhYmMsZGVmLCBoZ2knKTsKICBmdW5jKFxAdmFsdWVzKTsKICAKICBzdWIgZnVuYyB7CiAgCW15IEBpbmdyZWRpZW50cyA9IEB7JF9bMF19OwogICAgZm9yZWFjaCBteSAkaW5nIChAaW5ncmVkaWVudHMpIHsKICAJCXByaW50ICIkaW5nXG4iOwogIAl9CiAgfQ==