program bits; var inst: Longint; begin inst:=0; while true do begin end end.