  ( m, f ) =
            partitioned
                |&gt; (\( a, b ) -&gt; <span class="hljs-type">List</span>.map2 <span class="hljs-type">Tuple</span>.pair a b)
                |&gt; <span class="hljs-type">List</span>.sortBy (<span class="hljs-type">Tuple</span>.second &gt;&gt; .people)
                |&gt; <span class="hljs-type">List</span>.unzip
    <span class="hljs-keyword">in</span>
    { categories = categories
    , data = [ ( <span class="hljs-number">1850</span>, <span class="hljs-type">List<