diff --git a/inc/nux-base.inc.sh b/inc/nux-base.inc.sh
index a6525b5..0dddf52 100644
--- a/inc/nux-base.inc.sh
+++ b/inc/nux-base.inc.sh
@@ -50,6 +50,11 @@ function nux.echo.warning {
 	echo -e "${NC_warning}$* ${NC_No}";
 }
 
+function nux.use {
+  local incfile="$1.inc.sh"
+  source "$NUX_INC_DIR/$incfile"
+}
+
 
 function nux.include {
   local incfile="$1.inc.sh"
@@ -60,3 +65,7 @@ function nux.check.function {
   declare -f "$1" &>/dev/null && return 0
   return 1
 }
+
+function nux.check.file.exists {
+	test -e "$1" -o -h "$1";
+}
diff --git a/inc/nux.dsl.inc.sh b/inc/nux.dsl.inc.sh
new file mode 100644
index 0000000..e56130a
--- /dev/null
+++ b/inc/nux.dsl.inc.sh
@@ -0,0 +1,159 @@
+function nux.dsl.block.type {
+  echo ${DSL_BLOCK_TYPE[${#DSL_BLOCK_TYPE[@]}-1]}
+}
+
+function nux.dsl.block.id {
+	echo ${DSL_BLOCK_ID[${#DSL_BLOCK_ID[@]}-1]}
+}
+
+function nux.dsl.block.path {
+	echo ${DSL_BLOCK_PATH[${#DSL_BLOCK_PATH[@]}-1]}
+}
+
+function nux.dsl.block.pop {
+  unset DSL_BLOCK_TYPE[${#DSL_BLOCK_TYPE[@]}-1]
+	unset DSL_BLOCK_ID[${#DSL_BLOCK_ID[@]}-1]
+  unset DSL_BLOCK_PATH[${#DSL_BLOCK_PATH[@]}-1]
+}
+
+function nux.dsl.block.init {
+  DSL_BLOCK_TYPE[${#DSL_BLOCK_TYPE[@]}]="root"
+  DSL_BLOCK_ID[${#DSL_BLOCK_ID[@]}]="."
+  DSL_BLOCK_PATH[${#DSL_BLOCK_PATH[@]}]=".";
+}
+
+function nux.dsl.block.push {
+  local btype="$1"
+  local value="$2"
+  local parent=$(nux.dsl.block.path)
+  nux.log trace "Pushing $NC_White$btype '$value'$NC_No on stack."
+  DSL_BLOCK_TYPE[${#DSL_BLOCK_TYPE[@]}]="$btype"
+  DSL_BLOCK_ID[${#DSL_BLOCK_ID[@]}]="$value"
+  DSL_BLOCK_PATH[${#DSL_BLOCK_PATH[@]}]="$parent/$value";
+}
+
+
+
+function nux.dsl.error {
+  local tag="$1"; shift;
+	nux.echo.error "$tag"$NC_No: $*;
+}
+
+function nux.dsl.warning {
+  local tag="$1"; shift;
+	nux.echo.warning "$1"$NC_No: $*;
+}
+
+function nux.dsl.info {
+  local tag="$1"; shift;
+	echo -e $NC_White"$1"$NC_No:  $*;
+}
+
+function nux.dsl.keyword.exec {
+  local func="$1";
+  local keyword="$2";
+  local FUNC_NAME=$keyword$func;
+	local DEFAULT_NAME=$func;
+	shift; shift;
+  if nux.check.function $FUNC_NAME; then
+		nux.log trace  Executing: $NC_White$FUNC_NAME$NC_No "$@";
+		$FUNC_NAME "$@";
+		return;
+	elif nux.check.function $DEFAULT_NAME; then
+		nux.log trace  Executing: $NC_White$DEFAULT_NAME$NC_No "$@";
+		$DEFAULT_NAME "$@";
+		return;
+	fi
+}
+
+function nux.dsl.only.subtree {
+  nux.log debug "Subtree to process: $NC_White$1$NC_No"
+  nux_dsl_only_subtree="$1";
+}
+
+function nux.dsl.block.start {
+  parent=$(nux.dsl.block.path);
+  keyword="$1";
+  id="$2";
+  path="$parent/$id";
+
+  #nux.log trace Starting Block: "$keyword" ID: "$id" Parent: $parent
+  #nux.log debug "Skip is: $nux_dsl_skip, test should return $(test -z "$nux_dsl_skip")"
+  nux.dsl.block.push "$keyword" "$id"
+  if [[ $path == $nux_dsl_only_subtree* && -z "$nux_dsl_skip" ]]; then
+    nux.dsl.keyword.exec .preprocess "$keyword" "$@";
+    if nux.dsl.keyword.exec .check "$keyword" "$@"; then
+        nux.dsl.keyword.exec .entered "$keyword" "$@"
+    else
+      if nux.dsl.keyword.exec .check.recover "$1" "$@"; then
+          nux.log trace "Successfully recovered for $keyword $id"
+      else
+          nux.dsl.keyword.exec .check.failed "$1" "$@";
+          nux.log trace Skipping children of $NC_White$path$NC_No
+          nux_dsl_skip="$path"
+      fi
+    fi
+  fi
+
+}
+
+function nux.dsl.block.end {
+  keyword=$(nux.dsl.block.type)
+  id=$(nux.dsl.block.id)
+  path=$(nux.dsl.block.path)
+
+  nux.log trace Ending block $NC_White"$keyword" "'$id'"
+  if [ "$path" = "$nux_dsl_skip" ];then
+    nux_dsl_skip="";
+  fi
+  nux.dsl.block.pop "$1"
+  if [[ $path == $nux_dsl_only_subtree* ]]; then
+    nux.dsl.keyword.exec .exited "$keyword" "'$id'"
+
+    nux.log trace Ending block $NC_White"$keyword" "'$id'"
+  fi
+}
+
+function nux.dsl.load {
+  local language=$1
+  local script=$2
+
+  function .entered {
+    nux.log debug Keyword $NC_White$1$NC_No is noop.
+  }
+  function .block.entered {
+    nux.log debug Keyword $NC_White$1$NC_No is noop.
+  }
+
+  function .check.recover {
+    return 1
+  }
+
+  function .block {
+    local keyword="$1"
+    nux.log trace Defining block named $NCWhite"$keyword"
+    #FIXME: Add aliasing of binary of same name.
+    eval """
+      $keyword() {
+        nux.dsl.block.start $keyword "\$@";
+      }
+      end$keyword() {
+        nux.dsl.block.end $keyword
+      }
+    """
+  }
+
+  function .keyword {
+    local keyword="$1"
+    #FIXME: Add aliasing of binary of same name.
+    nux.log trace Defining block named $NCWhite"$keyword"
+    eval """
+      $keyword() {
+        nux.dsl.block.start $keyword "\$@";
+        nux.dsl.block.end $keyword;
+      }
+    """
+  }
+  nux.dsl.block.init
+  $language
+}