10normalForm([capsule(Capsule)]) :-

   12	timestamp(TimeStamp),
   13	exportPDDLDomainAndSave([
   14				 templateDir('templates/'),
   15				 worldDir('worlds/'),
   16				 capsule(Capsule)
   17				]),
   18	currentPlanner(Planner),
   19	Extension = 'pddl',
   20	atomic_list_concat(['worlds/',Capsule,'.d.',Extension],'',DomainFile),
   21	atomic_list_concat(['worlds/',Capsule,'.p.',Extension],'',ProblemFile),
   22	atomic_list_concat(['worlds/',Capsule,'.p.',Extension,'.',Planner,'.sol'],'',SolutionFile),
   23	(   Planner = 'LPG' ->
   24	    (	atomic_list_concat(['lpg-td-1.0 -o ',DomainFile,' -f ', ProblemFile, ' -out ', SolutionFile,' -speed ; mv ',SolutionFile,'.SOL ',SolutionFile],'',Command) ) ; 
   25	    (	Planner = 'OPTIC_CLP' ->
   26		(   atomic_list_concat(['optic-clp -N ', DomainFile, ' ', ProblemFile, ' > ', SolutionFile],'',Command)) ;
   27		true)),
   28	view([command,Command]),
   29	shell(Command)