Ada Blocks stub...