#include <perms.h>
void Fred(void) {
  _imp_string Getname(void);
  void Proc(_imp_string * One);
  Proc(Getname());
}
_imp_string Getname(void) { return (_imp_str_literal("codswallop")); }
void Proc(_imp_string *One) {
  if (_imp_strcmp(*One, _imp_str_literal("codswallop")) == 0)
    Printstring(_imp_str_literal("TestOK"));
  else
    Printstring(_imp_join(
        _imp_str_literal("Bug found expected=codswallop actual="), *One));
  Newlines(2);
}