goLeft  (x,y) = (x-1,y+1)
goRight (x,y) = (x+1,y+1)


paths (x,y) bs = if y==8 then [""]
                 else   map ('L':) (paths (x-1,y+1) bs)
                     ++ map ('R':) (paths (x+1,y+1) bs)