handleAct (Activate dir) = do
    pLoc <- access (loc <# aref player)
    player `activate` move4 dir pLoc
handleAct (Activate dir) = do
    pLoc <- access (loc <# aref player)
    player `activate` move4 dir pLoc
handleAct (Activate dir) = do
    pLoc <- access (loc <# aref player)
    player `activate` move4 dir pLoc