let VerticalDirection = < Up | Down > in VerticalDirection