perl -le '$a = join " ", grep {  $_ == 4 } (4); $b = join " ", grep {  $_ == 7 } (7); $c = $b-$a; print $c;'