I have a VR headset and still prefer head tracking. It's more comfortable, and becomes second nature after an hour or two of use.
data SomeIntermediateState = ...
data Progress = Double
data SortState a =
Complete [a]
| InProgress (SomeIntermediateState, Progress)
sortInit :: [a] -> SortState
sort :: SortState -> SortState