knightsTo :: Int -> (Int, Int) -> [(Int, Int)]