let table_args =
    let default = 1 in
    let parse_int i = try int_of_string i with e -> default in
    let parse_align str = 
      match str.[0] with
      | 'r' -> `right
      | 'l' -> `left
      | 'c' -> `center
      | _   -> (* TODO warning *) default_default_align in
    function
    | [] -> (default, None, default_default_align)
    | s :: [] -> (parse_int s, None, default_default_align)
    | s :: l :: [] -> (parse_int s, Some l, default_default_align)
    | s :: l :: a :: _ -> (parse_int s, Some l, parse_align a)