print OUTLET "$count\t $_";
##</code><code>##

81, galileo measur us newton basi law motion
45, galileo experi bodi roll slope act same forc weight effect make constantli speed up
50, show real effect forc chang speed bodi set move previous thought
45, meant bodi act forc keep move straight line same speed
##</code><code>##

my @UnNum =
    (
    [35, [qw(forc two bodi twice strong on bodi sai bodi mass)]],
    [39, [qw(you expect on think new bodi made two bodi origin)]],
    [60, [qw(attract bodi b origin force)]],
    [46, [qw(total forc b twice origin force)]],
    [34, [qw(sai on bodi twice mass three time mass forc six)]],
    [17, [qw(on now see why bodi fall same rate bodi twice)]],
    );