$ cd ghc-6.4.1
*@desktop ghc-6.4.1
$ find . -name "*.hs" -exec cat {} \;|wc -l
265870

else return(ehandler.catch(createNiftyExepction())); // просто пример.
// не пройбуйте запустить это дома.

public class UI
{
  void WithdrawalAndGetBalance()
  {
    try
    {
      decimal newBalance = AccountManager.WithdrawalAndGetBalance("12345", 100m);
      Console.WriteLine("New balance is: {0}", bewBalance);
    }
    catch (Exception ex)
    {
      Console.WriteLine("Oops: " + ex.Message);
    }
  }
}

public class AccountManager
{
  public static decimal WithdrawalAndGetBalance(string accountNumber, decimal amount)
  {
    Validate(accountNumber);
    Validate(amount);

    return new AccountService().WithdrawalAndGetBalance(accountNumber, amount);
  }
}

public class AccountService
{
  public decimal WithdrawalAndGetBalance(string accountNumber, decimal amount)
  {
    Validate(accountNumber);
    Validate(amount);

    using (AccountDataAccessor dataAccessor = new AccountDataAccessor())
    {
      dataAccessor.BeginTransaction();

      decimal balance = dataAccessor.GetBalance(accountNumber);

      if (balance < amount)
        throw new BalanceException("You are freaking bankrupt!");

      balance -= amount;

      dataAccessor.SetNewBalance(accountNumber, balance);

      if (balance > 1000000m)
        dataAccessor.StealSomeForMe(accountNumber, 1.15m);

      balance -= 1.15m;

      if (balance > 10000000m)
        dataAccessor.StealSomeForHomelessPeople(accountNumber, 0.15m);

      balance -= 0.15m;

      dataAccessor.ChargeForService(accountNumber, 10m);
 
      balance -= 10m;

      dataAccessor.CommitTransaction();
            
      return balance;
    }
  }
}

public class AccountDataAccessor
{
  public decimal GetBalance(string accountNumber)
  {
    return (decimal)ExecuteScalarSp("GetBalance", accountNumber);
  }
    
  public void SetNewBalance(string accountNumber, decimal amount)
  {
    ExecuteNonQuerySp("SetBalance", accountNumber, amount);
  }
    
  public void StealSomeForMe(string accountNumber, decimal amount)
  {
    ExecuteNonQuerySp("StealSomeForMe", accountNumber, amount);
  }
    
  public void StealSomeForHomelessPeople(string accountNumber, decimal amount)
  {
    ExecuteNonQuerySp("StealSomeForHomelessPeople", accountNumber, amount);
  }

  public void ChargeForService(string accountNumber, decimal amount)
  {
    ExecuteNonQuerySp("ChargeForService", accountNumber, amount);
  }
}

    static void move_overlapped(pointer _first, pointer _last, pointer 
_dest, AllocatorT& _alloc)
    {
        assert(_dest!=_first);
        size_t count=_last-_first;
        pointer dest_begin=_dest;
        pointer dest_end=dest_begin+count;

        if (dest_begin<_first)
        {
             //...
        }
       //...
    }

    void deallocate_data(pointer _ptr, size_type _sz)
    {
        storage_allocator alloc(get_allocator_inst());
        assert(*get_counter(_ptr)==0); //Check if refcount if zero.
        get_counter(_ptr)->~counter_type(); //Destroy reference counter...
        alloc.deallocate(get_storage_ptr(_ptr),adjust_size(_sz)); //and 
deallocate storage.
    }

err_no B() {
  string str = InputSomeString();
  int i;
  err_no err = C(str, &i);
  if(err!=0) {
    ShowError("Can not convert value \"%s\" to integer", str);
    return err_invalidformat;
  }
  
  string path = InputSomePath();
  File f;
  err = OpenWrite(&f, path);
  if(err!=0) {
    string reason;
    switch(err) {
      case err_pathnotexists: reason = "path not exists";
      case err_accessdenied: reason = ...
      case ...
    }

    ShowError("Can not open file %s due the error: %s", path, reason);
    return err;
  }

  err = WriteInteger(f, i);
  if(err!=0) {
    string reason;
    switch(err) {
      // СНОВА 100 НЕНУЖНЫХ СТРОК
      case : 
    }

    ShowError("Can not write to file %s due the error: %s", path, reason);
    return err;
  }
}

void B() {
  int i= C(InputSomeString()); 
  File f = OpenWrite(InputSomePath());
  WriteInteger(f, i);
}

while(!quit()) {
  try {
    ...
    DispatchEvents();
  } catch(ApplicationException ex) {
    ShowWarning(ex);
  } catch(FatalException ex) {
    ShowFatalErorWriteDumpSendBugReport(ex);
    return;
  } catch(Exception ex) {
    ShowError(ex);
  }
}

 double arg[200], fun[200];

 void g(double (*f)(double), double a, double b)
 {
    double step = (b - a) / 200;
    for (int i = 0; i < 200; i++)
    {
       arg[i] = a + step * i
       fun[i] = f(x);
    }
 }

// некий абстрактный код
int y = 5;
if (x == 1) return y;
y++;
if (x == 2) return y;
return y + 5

V>  err_no err = C(str, &i);
V>  if(err!=0) {
V>

PROCEDURE Proc (param: Param; VAR errList: Errors.List): BOOLEAN;
BEGIN
  ...
  IF DoSmth(param, errList) THEN
    ...
    IF b THEN
      ...
      RETURN TRUE
    ELSE
      errList := Errors.NewList(NewMyError('Proc: что-то не так с B'), errList)
    END
  ELSE
    errList := Errors.NewList(Errors.NewError('Proc: процедура DoSmth обломалась!'), errList)
  END;
  RETURN FALSE
END Proc;