pascal: example code for bug report about generics + operators