use std::collections::{BTreeMap, BTreeSet};

fn main() {
    let (r, w) = (std::io::stdin(), std::io::stdout());
    let mut sc = IO::new(r.lock(), w.lock());

    // let mut map = BTreeMap::new();
    // for h in 0..100 {
    //     println!("h={} g={}", h, grundy(h, &mut map));
    //     assert_eq!(grundy(h, &mut map), 1 << (h + 1).trailing_zeros());
    // }

    let n: usize = sc.read();
    let l: usize = sc.read();
    let mut tree = Tree::new();
    for _ in 0..n {
        let s = sc
            .read::<String>()
            .chars()
            .map(|c| c as usize - '0' as usize)
            .collect::<Vec<_>>();
        tree.insert(0, &s, 0);
    }

    let mut heights = vec![];
    tree.traverse(0, l, &mut heights);

    let mut grundy = 0;
    for h in heights.into_iter() {
        let g = 1 << (h + 1).trailing_zeros();
        grundy ^= g;
    }

    println!("{}", if grundy == 0 { "Bob" } else { "Alice" });
}

struct Tree {
    nodes: Vec<Node>,
}

struct Node {
    children: [Option<usize>; 2],
}

impl Tree {
    fn new() -> Self {
        Tree {
            nodes: vec![Node {
                children: [None, None],
            }],
        }
    }
    fn insert(&mut self, i: usize, s: &[usize], pos: usize) {
        if pos == s.len() {
            return;
        }
        match self.nodes[i].children[s[pos]] {
            Some(child) => {
                self.insert(child, s, pos + 1);
            }
            None => {
                let child = self.nodes.len();
                self.nodes.push(Node {
                    children: [None, None],
                });
                self.nodes[i].children[s[pos]] = Some(child);
                self.insert(child, s, pos + 1);
            }
        }
    }

    fn traverse(&self, cur: usize, l: usize, heights: &mut Vec<usize>) {
        match (self.nodes[cur].children[0], self.nodes[cur].children[1]) {
            (None, None) => {}
            (Some(child1), Some(child2)) => {
                self.traverse(child1, l - 1, heights);
                self.traverse(child2, l - 1, heights);
            }
            (Some(c1), None) | (None, Some(c1)) => {
                self.traverse(c1, l - 1, heights);
                heights.push(l - 1);
            }
        }
    }
}

fn grundy(h: usize, map: &mut BTreeMap<usize, usize>) -> usize {
    if map.contains_key(&h) {
        map[&h]
    } else if h == 0 {
        1
    } else {
        let mut set = BTreeSet::new();
        set.insert(0);
        for k in 1..(h + 1) {
            let mut g = 0;
            for next in (h - k)..h {
                g ^= grundy(next, map);
            }
            set.insert(g);
        }
        let g = (0..).find(|&i| !set.contains(&i)).unwrap();
        map.insert(h, g);
        g
    }
}

pub struct IO<R, W: std::io::Write>(R, std::io::BufWriter<W>);

impl<R: std::io::Read, W: std::io::Write> IO<R, W> {
    pub fn new(r: R, w: W) -> Self {
        IO(r, std::io::BufWriter::new(w))
    }
    pub fn write<S: ToString>(&mut self, s: S) {
        use std::io::Write;
        self.1.write(s.to_string().as_bytes()).unwrap();
    }
    pub fn read<T: std::str::FromStr>(&mut self) -> T {
        use std::io::Read;
        let buf = self
            .0
            .by_ref()
            .bytes()
            .map(|b| b.unwrap())
            .skip_while(|&b| b == b' ' || b == b'\n' || b == b'\r' || b == b'\t')
            .take_while(|&b| b != b' ' && b != b'\n' && b != b'\r' && b != b'\t')
            .collect::<Vec<_>>();
        unsafe { std::str::from_utf8_unchecked(&buf) }
            .parse()
            .ok()
            .expect("Parse error.")
    }
    pub fn vec<T: std::str::FromStr>(&mut self, n: usize) -> Vec<T> {
        (0..n).map(|_| self.read()).collect()
    }
    pub fn chars(&mut self) -> Vec<char> {
        self.read::<String>().chars().collect()
    }
}


Measured memory_bytes: 13176