randomNote = do
    i <- randomRange (0, length majorScale - 1)
    return (majorScale !! i)
randomNote = do
    i <- randomRange (0, length majorScale - 1)
    return (majorScale !! i)
randomNote = do
    i <- randomRange (0, length majorScale - 1)
    return (majorScale !! i)