walk hero (Path (nextPos : _)) = dirFromPos (hero^.heroPos) nextPos
walk hero (Path (nextPos : _)) = dirFromPos (hero^.heroPos) nextPos
walk hero (Path (nextPos : _)) = dirFromPos (hero^.heroPos) nextPos