multiple actions in if statement - R

I'm trying to use multiple actions in if statement. For example:

x <- 1

if (x == 1) {
   paste("First")
   1*1                    #multiple actions
 } else if (x == 2) { 
   paste("Second")
   2*2 } else {("Nothing")
 }

 [1] 1        #what I'm getting

 [2] "First"
      1       #what I want to get

In this case only the second part of the expressions was printed to the console. Any ideas how can I run all actions between if and else if ?