turbkeymap :: Keymap turbkeymap = map (\(k,f) -> (k,modifyPT f)) [(Char '>',\(Turbulence g n x t) -> Turbulence g n (x+1) t), (Char '<',\(Turbulence g n x t) -> Turbulence g n (max (x-1) n) t), (Char '.',\(Turbulence g n x t) -> Turbulence g (min (n+1) x) x t), (Char ',',\(Turbulence g n x t) -> Turbulence g (max (n-1) 0) x t)]