accountCommands :: [Name]
accountCommands =
  [ ''OpenAccount
  , ''CreditAccount
  , ''DebitAccount
  , ''TransferToAccount
  , ''AcceptTransfer
  ]
accountCommands :: [Name]
accountCommands =
  [ ''OpenAccount
  , ''CreditAccount
  , ''DebitAccount
  , ''TransferToAccount
  , ''AcceptTransfer
  ]
accountCommands =
  [ ''OpenAccount
  , ''CreditAccount
  , ''DebitAccount
  , ''TransferToAccount
  , ''AcceptTransfer
  ]