let pidd s = pf "I am %s (%d)\n%!" (String.uppercase s) (Unix.getpid())