generateMapOptions (startX,startY) b = [ showBoard3 (startX,startY) i b | i<-moves]
        where
            moves = findMove (startX,startY) b


showMapOptions (startX,startY) p = sequence_ $ map (putStr) lGen
        where
            lGen = generateMapOptions (startX,startY) p