sub splitTypeId {
    my ($arg) = @_;

    my ($type,$id) = m/ \A (\w) (\d+) \z /x;

    my %map = (
        n => 'node',
        w => 'way',
        r => 'relation',
    );

    $type = $map{$type} || '';

    return ($type, $id);
}