use integer;<>;map{$%=$_;$%-=$-=$%-($_^$%)for@_;$%&&push@_,$%}glob<>;print 1<<@_