my ($N, $M) = glob<>;
%foo;
for($i=0;$i<$M;$i++){
    ($s,$c) = glob<>;
    if( ($s == 1 && $c == 0) || grep{$key == $s && $foo{$key} != $c}keys@foo){
        print "-1";
        goto end;
    }
    $foo{$s} = $c;
}
for($j=0;$j<$N;$j++){
    $f = $foo{$j+1};
    print $f ? $f : 0;
}
end:{

}