my @r = split ' ', <STDIN>;