custom blind key not working

I wrote this script in skill. All keys are working except Shift+0. I cant understand why? need help..

hiSetBindKeys("Layout" list( list("Shift<Key>0" "Simcreatevia( geGetWindowCellView() hiGetPoint( getCurrentWindow() ) 0 )")
                             list("Shift<Key>1" "Simcreatevia( geGetWindowCellView() hiGetPoint( getCurrentWindow() ) 1 )")
                             list("Shift<Key>2" "Simcreatevia( geGetWindowCellView() hiGetPoint( getCurrentWindow() ) 2 )")))

procedure( Simcreatevia( cv xy num )
        let( ( x1 x2 y1 y2 pos)
                case( num
                        ( 0
                                x1 = car(xy) - 0.034
                                x2 = car(xy) + 0.034
                                y1 = cadr(xy) - 0.022
                                y2 = cadr(xy) + 0.022
                                pos = list( list(x1 y1) list(x2 y2) )
                                dbCreateRect( cv list( "v0" "drawing" ) pos )
                                leSetLayerVisible( `("v0" "drawing") t )
                                leSetLayerSelectable( `("v0" "drawing") t )
                                leSetEntryLayer( `("v0" "drawing") )
                        )
                        ( 1
                                x1 = car(xy) - 0.03
                                x2 = car(xy) + 0.03
                                y1 = cadr(xy) - 0.022
                                y2 = cadr(xy) + 0.022
                                pos = list( list(x1 y1) list(x2 y2) )
                                dbCreateRect( cv list( "v1" "drawing" ) pos )
                                leSetLayerVisible( `("v1" "drawing") t )
                                leSetLayerSelectable( `("v1" "drawing") t )
                                leSetEntryLayer( `("v1" "drawing") )
                        )
                        ( 2
                                 x1 = car(xy) - 0.022
                                x2 = car(xy) + 0.022
                                y1 = cadr(xy) - 0.029
                                y2 = cadr(xy) + 0.029
                                pos = list( list(x1 y1) list(x2 y2) )
                                dbCreateRect( cv list( "v2" "drawing" ) pos )
                                leSetLayerVisible( `("v2" "drawing") t )
                                leSetLayerSelectable( `("v2" "drawing") t )
                                leSetEntryLayer( `("v2" "drawing") )
                        )
                )
        )
)