#!/usr/bin/perl6
# your code goes here

use trace;

my %field-table = %{
            '标题'               => 'title',
            'title'              => 'title',
            '责任者'              => 'creatorSearch',
            'creatorsearch'      => 'creatorSearch',
            '出版者'              => 'publisher',
            'publisher'          => 'publisher',
            '标准编码'            => 'isbnSearch',
            'isbnsearch'         => 'isbnSearch',
            '索书号'              => 'call_number',
            'call_number'        => 'call_number',
            'callnumbersearch'   => 'call_number',
            '主题词'              => 'subject',
            'subject'            => 'subject',
            '全部字段'             => 'all',
            'all'                => 'all',
        }
        
        say %field-table;