1  ?- init.
 2  % features.pro compiled 0.00 sec, -728 bytes
 3  herramientas para manejo de 'features' en inglés
 4  predicados:
 5          display_segment(Segment+).
 6          find_segment(Segment+).
 7          find_all_segments(Feature_list+, List-).
 8          compare_segments(Segment_list+, Common_features-).
 9          contrast_segments(Segment_1+, Segment_2+).
10          segment_superset(Segment_list+, List_superset-).
11          segments_to_features(Segment_list+, Lists_of_features).
12
13  Yes
14  ?- display_segment(z).
15  z
16  consonantal, 1
17  sonorant, 0
18  syllabic, 0
19  voice, 1
20  cg, 0
21  sg, 0
22  labial, 0
23  round, 0
24  coronal, 1
25  anterior, 1
26  strident, 1
27  high, 0
28  back, 0
29  nasal, 0
30  continuant, 1
31  lateral, 0
32  delayed_release, 0
33
34  Yes
35  ?- find_all_segments([(high, 1), (continuant, 1), (voice, 1)], Segments).
36
37  Segments = [j, w, i, 'I', u, 'U']
38
39  Yes
40  ?- compare_segments([j, u, w], Common_features).
41
42  Common_features = [ (consonantal, 0), (sonorant, 1), (voice, 1), (high, 1), (continuant, 1)]
43
44  Yes
45  ?- segment_superset([j, u, w], Set).
46
47  Set = [j, w, i, 'I', u, 'U']
48
49  Yes
50  ?- segment_superset(['V','{',i], Super_set).
51
52  Super_set = [i, 'I', e, 'E', '{', 'V', 'A']
53
54  Yes
55  ?- contrast_segments(i,'{').
56  {:[ (tense, 0), (low, 1), (high, 0)]
57  i:[ (tense, 1), (low, 0), (high, 1)]
58
59  Yes
60  ?-