如何在Prolog中解析文本的第一部分？

% 定义一个谓词，用于解析文本的第一部分
parse_text(Text, FirstPart) :-
    % 将文本转换为字符串
    atom_string(TextAtom, Text),
    % 使用空格将字符串分割成列表
    atomic_list_concat(TextList, ' ', TextAtom),
    % 获取列表的第一个元素作为第一部分
    [FirstPart | _] = TextList.

% 示例用法
?- parse_text("Hello world! How are you?", FirstPart).
FirstPart = "Hello".