How to iterate over a seq[seq[int]] to keep only columns?

[cag104]

I have this seq[seq[int]] object:
    
    
    @[@[2, 4, 1], @[2, 0, 2], @[1, 1, 2], @[0, 0, 0]]
    
    
    Run

I want to iterate over each column so that I can perform a function on the 
entire column. So the output should be:
    
    
    column = @[2, 2, 1, 0]
    column = @[4, 0, 1, 0]
    column = @[1, 2, 2, 0]
    
    
    Run

How do I do this?