get;my ($o,@a)=get.words;put (@a X words).map:{$o eq '+' ?? [+] $_ !! [*] $_}